$ perl -Mstrict -Mwarnings -e 'my %states'
$