You'll be deluged with responses containing the string "Schwartz(ian)? Transform" or "ST". See this post for an explanation. Basically, using the terminology of that post, you want a function

sub property {
  my $loc = ( split /,\s+/, $_[ 0 ] )[ 1 ];
  $loc =~ /^S\d+H(\d+)$/;
  return $1;
}
[download]

Then, do the ST thang:

my @sorted =
  map  { $_->[0] }
  sort { $a->[1] <=> $b->[1] }
  map  { [ $_, property( $_ ) ] }
  @unsorted;
[download]