use strict;
use warnings;
use Data::Dump qw/pp dd/;



my %hash =  (
             accents    => 'utf-8',
             accounting => 'money',
             bank       => 'money'.
             bank2      => 'money'.
             bank3      => 'money',
             perls      => 'perl'
            );


dd \%hash;