You are getting unexpected results because the arguments are not array references and you are not dereferncing correctly.

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

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