open (FH_01  , ">", "file_01.txt"  ) || die "open failed $!"; 
&hash2file(\%hash_regs, <FH_01>); # it dosen't work
&hash2file(\%hash_regs, FH_01); # illegal syntax
&hash2file(\%hash_regs, "file_01.txt"); # illegal syntax too