Select Code to Download

#!/usr/bin/perl

...
    print $outfh{$host} $data;
}
# perl will flush and close output files when done

Scalar found where operator expected at ./nocsplit.pl line 17, near "}
+ $data"
        (Missing operator before  $data?)
syntax error at ./nocsplit.pl line 17, near "} $data"
Execution of ./nocsplit.pl aborted due to compilation errors.

print to $outfh{$host} $data;