for (0..3) {
   chomp(my $key = <STDIN>);
   chomp(my $val = <STDIN>);
   push @{$hash{$key}}, $val;
}