Doubt on how to return a hash from one subroutine to another

[pavanponnapalli]

hi ,
I have got a code as under :

sub dbcall
{
	my %hash;
	my $i=0;
	print "<<<<<<<@_>>>>>>> \n";
	foreach(@_)
 	{
 		%hash=();
 	             	if($_=~/\=/)
		{
		 print "***$`*** \n";
	                 print "***$'*** \n";
                                 $hash{$`} => $';
	              }
		
 			
		foreach(keys %hash)
	                {		 				                            print "$_ => $hash{$_}";
                                }

Actually i have got four lines of log. Each line of data i have passed to this subroutine which comes as for example say

           kkpd=10

so i have matched for "equal to"

$hash{$`} = $'

now all the key value pairs are put in the hash. I need to send hash as a whole to another subroutine and see the values in the hash in that subroutine. How can i do this?

Thanks,
pavan

[nithinpes]

You can send the hash by reference to other subroutine. Call the subroutine as below:

mysub(\%hash);

Inside the subroutine, get the hash from this hash reference which is sent as argument:

sub mysub  {
   my %gethash=%{$_[0]}; # dereference the hash reference
   foreach(keys %gethash) {
      print "$_ : $gethash{$_}\n"; }
}

- Nithin