$sentence1 = "i am the snow white disney workers wondered curiously";

$sentence2 = "a ma bee flew dance waggle quickly westward";

@words = split (/ /, $sentence2);

foreach $w (@words)
{
   print "$w\n";
}