Going onto the Next
#!/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"; }