#!/usr/bin/perluse 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";}