#!/share/bin/perl -w


@Cities1 = ("London", "Paris", "New York");
# Note, this attempt at using qw isn't going to work correctly
# Cities2 will be a list of five cities including 'Los and Francisco"
# Creating lists with qw is helpful, but not infalible.
@Cities2 = qw( Rome 'Los Angeles' "San Francisco");
@Cities3 = ("Wagga", "Hay", "Cooma");
@Cities4 = qw\ Thiroul Bellambi Keiraville\;

# Several forms of for loop used to print the contents of the list
print "Cities1 :\n";
$size = @Cities1;
for($i=0;$i<$size;$i++) {
	print $Cities1[$i] , "\n";
	}
print "Cities2 :\n";
foreach $city (@Cities2) {
	print $city , "\n";
	}
print "Cities3 :\n";
foreach $i (0 .. $#Cities3) {
	print $Cities3[$i] , "\n";
	}
print "Cities4 :@Cities4\n";