while (<>){
  # do some stuff
  unless defined ( $fhs{$conn} )
  {
    $fhs{$conn} = IO::File->new();
    
    die $!
      unless $fhs{$conn}->open(">conn-$conn");
  }
  
  $fhs{$conn}->print ($_);
}