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