my @a = qw( a b c ); for (@a) { print("$_\n"); # Prints "a", then "b", then "c". } while (@a) { print("$_\n"); # Prints an infinite number of blank lines. }