while (<>) {
   defined $fhs{$conn}
      or open($fhs{$conn}, '>', "conn-$conn")
         or die("Unable to create file conn-$conn: $!\n");

   print { $fhs{$conn} } $_;
}