while (<>) do {
    push @m2, [ split /,/, $_ ];
}

##</code><code>##

./myprogram.pl < d1.txt