sub poo {

    my $total_length = 0;

    foreach my $array_ref (@_) {
        my ($first, @rest) = @$array_ref;
        my $length = length($first);
        print "@rest $first $length\n";
        $total_length += $length;
    }

    print "$total_length\n";
}