Select Code to Download

#!/usr/bin/perl -l

...
print for @finds;
print "-----";
print scalar reverse for reverse @finds2;

dog 789 cat
dog dog bird cat
...
dog 789 cat
dog bird cat
dog frog cat