the obvious, probably

foreach $Foo ('t','hi','isj','usta','funky','little','thingiw','roteto
+do','thisthing','timtowtdi!') {
        print length($Foo),"\n";
}
[download]