@array = sort{$a->{1} cmp $b->{1}}@array;
  print Dumper(\@array);
}