#array declaration
my @array1 = (....);
my @array2 = (....);

my ($num,$divisor);

foreach $num (array contains  dividend) # this loop is for iterator one by one
{
        foreach $divisor (array contains divisor) # this loop checks first array elements array divisible by the second array element
        {
                if ($num % $divisor) {
                        # does not divide cleanly
                        print "$num is not divisible by $divisor\n";
                }
                else {
                        # does.
                        print "$num is divisible by $divisor\n";
                }
        }
}