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

sub swap {
	my ($x) = @_;
	my $y;
	$y = [$x->[1], $x->[0]];
	return $y;
}

MAIN:
{
	my $pair1 = ["Hello", 5];
	my $pair2;
	$pair2 = swap($pair1);
	print Utils::tupleToString($pair1), " becomes ", Utils::tupleToString($pair2), "\n";
}