foreach my $x (keys %hash)
  {
    my $data = $hash{$x};
    print "$x\n";
  }