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