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 

9344220001|sei10720013,21/07/2009-00-00-00,23/07/2009-12-34-44
9344220001|sei10720014,23/07/2009-20-00-23