my @G = qw(Happy New Year!! 2020 is here); print "\n $G[0]"; print "\n $G[1]"; print "\n $G[2]"; print "\n $G[3]"; print "\n $G[4]"; print "\n $G[5]"; print "\n-----------"; foreach (@G) { $_ = 'happy'; } print "\n $G[0]"; print "\n $G[1]"; print "\n $G[2]"; print "\n $G[3]"; print "\n $G[4]"; print "\n $G[5]";