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

sub reverseList {
	my ($x) = @_;
	my $y = [];
	for (my $i = scalar(@{$x}) - 1; $i >= 0; --$i) {
		push(@{$y}, $x->[$i]);
	}
	return $y;
}

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

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

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

	print Utils::listToString($names), "\n";
}