Select Code to Download

my @data;
while (my $line = <$fh>) {
...
    map  { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map  [ $_, (split)[3] ], @data;

next unless $line =~ /^\d/;