Select Code to Download

$Records{'1'}{'Meta'}{'Name'} = 'Alice';
$Records{'1'}{'Packages'}{'PackageID'} = 1;
$Records{'2'}{'Meta'}{'Name'} = 'Bob';
$Records{'2'}{'Packages'}{'PackageID'} = 1;

my @sorted =
   map $_->[0],                            # transform pairs back into
+ ids
   sort { $a->[1] cmp $b->[1] }            # sort by name
   map [ $_, $Records{$_}{Meta}{Name} ],   # transform into [id, name]
+ pairs
   keys %Records;                          # list of customer ids