Select Code to Download

use strict;

sub sum {my $x; $x += $_ for @_; $x }
...
@x = sort{$b->[1] <=> $a->[1]}@x;

printf "%-5s %-20s %-20s\n",$_+1,@{$x[$_]} for(0..2);

our $csvs = qr/(?:"(?:[^"]|"")*"|[^",])+/;

...
   open(my$F,$_[0])||die"cant open : $_[0]\n$!\n";
   my $x = <$F>
}