Select Code to Download

my @sortrecs = map { $_->[0] }
               sort { $a->[1] <=> $b->[1] }
               map { [ $_, 
                 ( split /=\s*/, (grep { /area/ } @{$_} ) )[1] ] }
               @records;

use strict;
use warnings;
...
    print "\n";
}
close OUT or die "Argh!\n$!";