sub get_key {
  my $key1 = $_[0];
  my $key2 = reverse $key2;
  return (sort $key1, $key2)[0];
}