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