sub e{@_,map{e($_)}@{@hash{@_}}}
  print Dumper[map{[sort{$a<=>$b}e$_]}@{$hash{0}}]