Help for this page
my @sortrecs = sort { $a->{'area'} <=> $b->{'area'} } map { {split /\s*=\s*|\s+/} } @records;