my @data = <FILE>;

for $OneLine( @date) { print $OneLine; }