print to more than one file at once

for $fh (FH1, FH2, FH3) { print $fh "whatever \n " }