use strict;
use Data::Dumper;

#my @yahoo = map { split(/\n/, $_) } <DATA>;


my @yahoo = <DATA>;
#print "@yahoo\n";

print Dumper(@yahoo);