my @file = ("eddie van halen", "david lee roth", "alex van halen", "michael anthony");
my @stuff = map { "$_\n"; } map { split /\s+/, $_; } @file;
print @stuff;