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

sub poo {
my($first, $second, $third) = @_;
my @array = @{$second};
my $second = shift(@array);
my $length = length($second);
print("@array" , " $second", " $length\n");
@array = @{$first};
my $first = shift(@array);
my $length1 = length($first);
print("@array", " $first", " $length1\n");
@array = @{$third};
my $third = shift(@array);
my $length2 = length($third);
print("@array", " $third", " $length2\n");
my $result = $length + $length1 + $length2;
print("$result\n");
}