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

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