Select Code to Download

use strict; use warnings;
use List::MoreUtils qw[firstidx];
...

print join(':',@new), "\n";
print join(':',@test), "\n";