use Data::Dump;
...
dd \%reg_coes;