#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	my $names = ["Fred", "Wilma", "Barney", "Betty"];

	foreach my $name (@$names) {
		print "Hello, ", $name, "!\n";
	}

	$names = ["Harry", "Ron", "Hermione"];
	foreach my $name (@$names) {
		print "Hello, ", $name, "!\n";
	}
}