Select Code to Download

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