use strict "vars"; my $name = "Tom"; #All variables are lexical in scope our @friends = qw(Tom Stefan Bin Marie); our $newspaper = "The Globe"; print "$name and $friends[0] read the $newspaper.\n";