yoppi · October 4, 2011 08:26
diff --git a/a.pl b/a.pl
 my %t;
 while (<>) {
  my ($key, $value) = split;
  if (not $t{$key}) {
    $t{$key} = ();
  }
  push @{$t{$key}}, $value;
 }
 foreach $key (keys %t) {
  print "$key \n";
 }
	my %t;
	while (<>) {
	my ($key, $value) = split;
	if (not $t{$key}) {
	$t{$key} = ();
	}
	push @{$t{$key}}, $value;
	}
	foreach $key (keys %t) {
	print "$key \n";
	}