while (<$f>)
{
  print $_; # $_ contains the record most recently read

  #  The "$_" is implied if omitted, so you could simply
  #  say:    print;  
  #
  # If you need to append a newline after each record,
  #  use :  print "$_\n";
}