Help for this page
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"; } }