Select Code to Download

open(my $fh, "tempfile") or die("ack - $!");
chomp( my $header = <$fh> );
...
    push @{ $info{$name} }, @rows;
}
close $fh;

open(my $fh, ">", "output") or die("ack - $!");
print $fh $header;
...
    $info{$a}->[ $cols{z} ] <=> $info{$b}->[ $cols{z} ]
} keys %info;
close $fh;

my(@list) = "foo bar baz" =~ m< (?: (\w+) \s* )+ >x;
print "@list";
...

baz
# not - foo bar baz

my(@list) = "foo bar baz" =~ m< (\w+) [ ]? >xg;
print "@list";
...
__output__

foo bar baz