print "@$_\n" foreach sort {
  $a->[0] <=> $b->[0] or
  $a->[1] cmp $b->[1] or
  $a->[2] cmp $b->[2]
} map {
  my $s = $_;
  map { [ $hash->{$s}{$_}, $s, $_] } keys %{$hash->{$s}}
} keys %$hash;