i have problem with hash printing !!!

You could guess that any such problems could be easily resolved... did you try something like this:

print "$k => $h{$k}\n" for my $k (sort keys %h);
[download]

Hmm...

my %h = ( a => 1, b => 2, c => 3 );
print "$k => $h{$k}\n" for my $k (sort keys %h);
[download]

Output:

syntax error at D:\progs\perl\junk.pl line 5, near "$k ("
Execution of D:\progs\perl\junk.pl aborted due to compilation errors.
[download]

Maybe you meant something like:

print "$_ => $h{$_}\n" for sort keys %h;

Or the (no doubt) more newbie-friendly:

for my $k ( sort keys %h ) {
  print "$k => $h{$k}\n";
};
[download]

++ seven hours and several upvotes later. It's amazing how few people are trying around here these days.

-sauoq
"My two cents aren't worth a dime.";