11 lines
222 B
Perl
11 lines
222 B
Perl
|
#!/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";
|
||
|
|
}
|