#!/usr/local/bin/perl use strict; use warnings; for my $n ( 1 .. 30 ) { my $fz = ''; $fz .= 'Fizz' unless $n % 3; $fz .= 'Buzz' unless $n % 5; print $fz || $n, "\n"; } use Warn::Dumper; my @a= (); warn Dumper @a; shift @a; warn Dumper @a; shift @a; warn Dumper @a; shift @a; warn Dumper @a;