while (<$info>) { # puts one line of file into $_ print "$_"; } #### @file = <$info>;