Select Code to Download

my %hash_by_name;
for (@records) {
  $hash_by_name{$_->{name}} = $_;
...
while (@sorted_names) {
    push @sorted, $hash_by_name{shift @sorted_names};
}