#! /usr/bin/perl
use strict;
use warnings;
use utf8;

sub U { return utf8::is_utf8($_[0])?'is_utf8':'not_utf8'; }  

my %s = (
     MaxAccountSize1   => 1,
     'MaxAccountSize2' => 1,
     2 => 1,
);

foreach (sort keys %s) {
     print "'$_' ".U($_)." => '".$s{$_}."' ".U($s{$_})."\n";
}