my @abc = ('a'..'z');
    my %abc = map { ($abc[$_],$_) } (0..25);
    my @key = map { $abc{ lc() } } $key =~ /([a-z])/ig;