Shell Programming and Scripting

@LoHashes = ({"a"=>1,"b"=>2,"c"=>3,"d"=>4},
                    {"a"=>5,"b"=>6,"c"=>7});

@LoHashes = create_list(\&LoHashes);
sub create_list
{
   foreach $hash(@LoHashes)
    {
       foreach (sort keys %$hash)
        {
           print "$_ $hash{$_} ";
        }
    }
}

@LoHashes = ({"a"=>1,"b"=>2,"c"=>3,"d"=>4},
      {"a"=>5,"b"=>6,"c"=>7});
 
@LoHashes = create_list(\&LoHashes);
sub create_list
{
 foreach $hash(@LoHashes)
 {
  foreach (sort keys %$hash)
  {
   ### temp hash used to increment the key value.
   ### if the value is greater than 2 assign to
   ### the result hash for appropriate keys to corresponding value
   if ( ++$temp{$_} >= 2) {
    $result{$_} = $$hash{$_};
   }
  }
 }
}
### Finally you got the updated values for that corresponding keys.
print "\n$_ : $result{$_}" for (sort keys %result);