use strict;
use warnings;

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