Select Code to Download

my (@both,@last_second,@last_first);
foreach $line (@sorted_data) {
...
print "both\n", join("\n",@both), "\n";
print "last_second\n", join("\n",@last_second), "\n";
print "last_first\n", join("\n",@last_first), "\n";