Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $array (@arrays) {
    print "@$array: ", is_divisible($array) ? 'yes' : 'no', "\n";
}