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

__DATA__
one
two
three