Select Code to Download

use strict;
use warnings;
...
a b c
e f g
h i j

for my $rc(@R) {
        if ($rc->[0] eq "a") {
...
                print "$rc->[0]\t","$rc->[1]\t","$rc->[2]\t","$rc->[3]
+\n";
        }
}