Select Code to Download

10000058        3DKG000004283       290.48
10000059        3DKG000004315       290.48
...
10000162        3DKG000008189       307.62
10000163        3DKG000008231       307.62
10000164        3DKG000008261       14.69

3DKG000004283 3DKG000004543 4
3DiKG000004569 3DiKG000004879 5
3DiKG000005165 3DiKG000005193 2
3DKG000007633 3DKG000007769 5
3DKG000008189 3DKG000008261 3

#!/usr/bin/perl -w
open(IN, "input.txt") || die "Can't open output1.txt: $!";
...
close (IN);