my @stooges = qw(Larry Moe Curly);
print scalar(@stooges), " Stooges!\n";