#!/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"; }