#!/usr/bin/perl

poo ( (1..4), ("goo", "doo", "moo"), (6..9) );

sub poo {
my($first, $second, $third) = @_;
my @array = \@{$second};

print("@array");
}