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

my (@kmap, @rmap, %map);
{
    no warnings;        # Не хуя вопить

    @kmap = qw/A B V G D E + J Z I Y K L M N O P R S T U F H C X ! @ # $ % ^ & * a b v g d e = j z i y k l m n o p r s t u f h c x 1 2 3 4 5 6 7 8/;
    @rmap =  qw/А Б В Г Д Е Ё Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я/;
}
@map{@kmap} = @rmap;

my $c;
for (@kmap){
    print "$_: $map{$_}\t";
    print "\n" unless ++$c % 9;
}