my $aref = [{name => 'Zambia', abbr => 'ZA'}, {name => 'Afghanistan', abbr => 'AF'}, {name => 'Andorra', abbr => 'AN'}];

say $_->{name} for sort { $a->{abbr} cmp $b->{abbr} } @{$aref};'