use strict;
use Carp qw{ carp croak confess cluck };
use warnings;

$SIG{ __WARN__ } = sub { confess q{Got a warning: @_} };
my %hash = (
            'accents' => 'utf-8',
            'accounting' => 'money',
            'bank' => 'money'.
            'ing' => 'money',
            'perls' => 'perl',
        );