my %h;
while( <> ) {
  my ($k, $v) = process $_;
  push @{$h{$k}}, $v
}
for my $k ( keys %h ) { #traverse all keys
  for my $v ( @{$h{$K}} ) { #traverse all values for that key
    do_your_stuff $k, $v;
  }
}