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

MAIN:
{
	my $pair1 = ["Hello", 5];
	my $tuple1 = ["Goodbye", 3, 3.1415926];
	my $tuple2 = [1.6, 2.5, 5, "C"];

	print $pair1->[0], ",", $pair1->[1], "\n";
	print $tuple1->[0], ",", $tuple1->[1], ",", $tuple1->[2], "\n";
	print $tuple2->[0], ",", $tuple2->[1], ",", $tuple2->[2], ",", $tuple2->[3], "\n";
}