Common use of "map" in Perl my @titles = map { chomp; $_ } ( );

# set name CHILDREN KIDS AUDIO BOOKS MP3 3 DVD SET

my @titles = map { chomp; $_ } ( <DATA> );

...

__DATA__
Peter Pan
Alice's Adventures in Wonderland
The Adventures of Pinocchio
Dorothy and the Wizard of Oz
The Enchanted Castle
The Burgess Animal book for Children
Little Wizard Stories of Oz
The Golden Goose Book
Five Children and It
English Fairy Tales
The Life and Adventures of Santa Claus
Anne of Green Gables
The Aesop for Children
Squirrels and other Fur-Bearers
The True Story of the 3 Little Pigs
The Secret Garden
Anne of Avonlea
American India Fairy Tales
A Little Princess
The Real Mother Goose