use strict; use warnings; while (defined (my $line = )){ print $line; } __DATA__ 0.004 0.003 0.004 0.006 0.006 0.008 0.006 0.006 0.006 0.005 0.006 0.007 0.007