Returning multiple values 

my @words = map { split /\s+/, $_ } <STDIN>;