my @a;
open my $fh, "<","input" or die $!;
while(1) {
    last if eof($fh);
    my $pos = tell($fh);
    my ($k1,$k2) = split /\s+/, <$fh>;
    push @a, [$k1, $k2, $pos];
}
foreach(sort { $a->[0] cmp $b->[0] or $a->[1] cmp $b->[1]} @a) {
    seek($fh, $_->[2], 0);
    print scalar <$fh>;
}