I am trying to do somthing like this
<code>
open my $fh, '<', $filename
or die "$filename: $!\n";
while (<$fh>)
{
chomp;
($key, $value) = split /\|/, $_;
push @{$hash_merge{$key}},$value;
print "key for $key merge values $hash_merge{$key}->[0]1 \n";
#file looks like