open (my $FH_01  , ">", "file_01.txt"  ) || die "open failed $!"; 
&hash2file(\%hash_regs, $FH_01); # it should work