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);

    push @{$hash{key}}, $val;
  }
}