use strict;
use warnings;
sub getHash
{
  my %hash;
  for(my $i=0;$i<4;$i++)
  {
    my $key = <STDIN>;
    chomp($key);
    my $val = <STDIN>;
    chomp($val);

    if ( !defined $hash{$key} ) #first time
    {
        $hash{$key} = $val;
    }
    else
    {
        $hash{key} = ref($hash{key}) ? [ @{$hash{key}}, $val ] : [ $hash{key}, $val ];
    }
  }
}