http://www.perlmonks.org?node_id=856317


in reply to deferencing an hash in a subroutine

saintex, But in your code you are not using the reference at all. I think if you want to change the original values, Then pass by reference and change it.
#!/usr/bin/perl -w use strict; my %h = qw(a b c d); &test(\%h); while ( my ($key, $value) = each(%h) ){ print "Key\t $key Value\t $value\n"; } sub test { my $h = shift; $h->{a}= "k"; ..... Some Code ....... }

Regards,
Murugesan Kandasamy
use perl for(;;);