#!/usr/bin/env perl
use strict;
use warnings;
my %permution = (
"a" => [ "a", "A", "4"],
"b" => "bB8",
"c" => "cC",
"d" => [ "d", "D"],
"e" => "eE3",
"f" => "fF",
"g" => "gG9",
"h" => "hH",
"i" => "iI1",
"j" => "jJ",
"k" => [ "k", "K"],
"l" => [ "l", "L", "7", "1"],
"m" => [ "m", "M"],
"n" => [ "n", "N"],
"o" => [ "o", "O"
