my $c = qw / 4 6 8 90/; ##

##

 $c = split / /, "the quick brown fox";

##

##

 $c = (split / /, "the quick brown fox")[2];

##

##

 $c = [split / /, "the quick brown fox"];

##

##

print $c->[2];