#!/usr/bin/perl -w
use strict;

print "\nWith scalars..\n";
my ($var1, $var2, $var3) = (1, 2, 3);

foreach( $var1, $var2, $var3 ){
	print "$_, ";
}

print "\nundef them...\n";

$var1 = $var2 = $var3 = undef;
foreach( $var1, $var2, $var3 ){
	print "$_, "; # -w will complain about this.
}

print "\nWith an array..\n";
my @stuff = qw(a b c);
foreach( @stuff ){
  print "$_, ";
}

print "\nundef it...\n";

@stuff = ();
foreach( @stuff ){
  print "$_, "; # -w won't complain about this, because
                # @stuff is empty, so this line does not
                # execute
}