Select Code to Download

use strict;
use warnings;
...
    print "Found item $_\n";
  }
}

...

...
my %prim = map { $_ => 1 } @prim;

...