print "\n------------\n";
print join "\n",split /\t/, $hash{$key}, 7;