spickles
A simpler way to do the for loop is to use the foreach.
my $str = "I'm not as think as you stoned I am";
# split into individual words on whitespace delimiter
# and store in array @words
my @words = split( /\s+/, $str );
foreach my $word (@words) {
print "$word\n";
}