Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper(\@in2only);
print "\n";

in one only
$VAR1 = [
...
          '39',
          '40'
        ];