Select Code to Download

push @{$lineFileContains{$r[3]}}, [@r[3..$#r]];

foreach (@{$lineFileContains{$_}}) {
   print "\t$_->[0]\t$_->[1]\n";
}

push @{$lineFileContains{$r[3]}},

push @{$lineFileContains{$r[2]}},