Select Code to Download

my @array = (1, 2, 3, 'four');
    my $reference = \@array;

foreach $line (@lines){
            chomp $line;
            $count++;
...
            chomp $row;
            print hanw join (',', @$row ),"\n";
        }