Select Code to Download

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

...
    my $result = $length + $length1 + $length2;
    print("$result\n");
}

"my" variable $second masks earlier declaration in same scope at test.
+pl line 9.
"my" variable $first masks earlier declaration in same scope at test.p
+l line 13.
"my" variable $third masks earlier declaration in same scope at test.p
+l line 17.
test.pl syntax OK

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

sub poo {
    my ( $first, $second, $third ) = @_;
...
    }
    print "$total_length\n";
}

sub poo {

...

    print "$total_length\n";
}

sub poo {

...

    print "$total_length\n";
}

sub poo {

...

    print "$total_length\n";
}