sub print_dup {
    
    foreach my $fh ( @previously_opened_handle_for_write ) { print {$fh} @_ }
}