my $count = @{[@foo, @bar, @baz]};
print "There are $count elements altogether between the three arrays.\n";