Select Code to Download

sub KeysByLogins {
  my $hash = shift;
...
  return map { $_->[1] }
    sort { $a->[0] <=> $b->[0] } @temp;
}