$_ = " one two three four five six"; @ary = split; print $ary[3];