sub len
{
    length;
}

my @array = qw( fu bar baaaaz );

foreach ( @array )
{
    print len;
}