Help for this page
use warnings; use strict;
use warnings; use strict; ... print OUTPUT1 "$dist_split\n"; close OUTPUT1; }