Select Code to Download

use strict;
use warnings;
...
    }
$csv_in->eof or $csv_in->error_diag ();
close $_ for $h_in, $h_sr, $h_rj;