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