chomp (my @data = <DATA>);
print "$_\n" for @data;