Select Code to Download

use Modern::Perl;
use Data::Dump qw /dd/;

...
11,72,37,58,20
21,42,63,24,16
81,32,53,54,42

for my $row_ref (@array_2d) {
    for my $item (@$row_ref) {
        print "$item ";
    }
    print "\n";
}