Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        }
    }
}

for my $i (0..$#readingbooks){
    for my $j (0..$#catbooks){
        if (($readingbooks[$i] eq $catbooks[$i])...

#!/usr/bin/perl
use strict;
use warnings;
...
        print "wow \n\n";
    }
}