#!/usr/bin/perl
use strict;
use warnings;
my @array = (8, 3, 0, 2, 2, 0);
for (@array) {
    if ($_ == 0) {
        print "Skipping zero element.\n";
        next;
    }
    print "48 over $_ is ", 48/$_, "\n";
}