Select Code to Download

$ cat pm_1207122_data.tsv
A    A1    A2    A3    A4    A5    A6
...
D    D1    D2    D3    D4    D5    D6
E    E1    E2    E3    E4    E5    E6
F    F1    F2    F3    F4    F5    F6

#!/usr/bin/env perl -l

...
    print "$find: ",
          exists $data->{$find} ? "@{$data->{$find}}[3,4]" : '<not fou
+nd>';
}

C: C4 C5
G: <not found>
E: E4 E5
D: D4 D5
D: D4 D5

A: A4 A5
I: <not found>
F: F4 F5
H: <not found>
E: E4 E5