#!/usr/bin/perl use warnings; use strict; my @array = qw(America Asia Europe Africa); my $element; for $element (@array) { print $element, "\n"; }