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;

##</code><code>##

{
  accents => "utf-8",
  accounting => "money",
  bank => "moneybank2",
  moneybank3 => "money",
  perls => "perl",
}