in reply to Re^4: Seperating individual lines of a file
in thread Seperating individual lines of a file

print $outfh{$host} $data;

In addition to Not_a_Number's solution by means of assigning to a temporary variable, another possible one is that given in perldoc -f print:

print { $outfh{$host} } $data;