foreach $Foo ('t','hi','isj','usta','funky','little','thingiw','rotetodo','thisthing','timtowtdi!') {
        print length($Foo),"\n";
}