sub ParseForExpDB2Params{
my %ExpValHash1;
my %ExpValHash2;
my %ExpValHash3;
my $x = 0;
my $i = 0;
my $y = 0;
my @param = @_;
my $val = "";

do something;
....
.....


print Dumper(\%ExpValHash1);
print "--------------------------------\n";
print Dumper(\%ExpValHash2);
print "--------------------------------\n";
print Dumper(\%ExpValHash3);

return (\%ExpValHash1,\%ExpValHash2,\%ExpValHash3);
}


##</code><code>##

my (%ExpValHash4, %ExpValHash5, %ExpValHash6) = ParseForExpDB2Params(@params);