Help for this page

Select Code to Download

Select or download this

use Sort::Key qw(keysort);

...
}

my @sorted = keysort { mknatkey($_) } @data;