# open infile;
# open outfile;
for my $k_out (1..43) {
    for my k_in (1..43) {
        read $line from infile until /^$k_out $k_in/;
        write $line to outfile
    }
    set pointer of infile back to 0;
}