A more effiecient and smart to do is pass the hash by reference, as follows:

&callsub(\%hashtopass);

sub callsub {

  my %hashread = %{$_[0]};

  foreach $k (keys(%hashread)) {


  }
}
[download]

Thanks.

Hotshot