Select Code to Download

$ cat lists.pl
#!/usr/bin/perl
...
Item 13: in lists: 0, 2, 3
Item 14: in lists: 0
Item 15: in lists: 1, 2

#!/usr/bin/perl
use strict;
...
    }
    print "in lists: ", join(", ", @present), "\n";
}

$ cat lists_2.pl
#!/usr/bin/perl
...
   list 1: 8, 9
   list 2: 8
   list 3: 1, 2, 12