Select Code to Download

#!/usr/bin/env perl

...
foreach my $elem (@array1) {
    print "$elem\n" if(contains($elem, \@array2));
}