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

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

    @kmap = split //, 'ABVGDE+JZIYKLMNOPRSTUFHCX!@#$%^&*abvgde=jziyklmnoprstufhcx12345678';
    @rmap = split //, 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
}
@map{@kmap} = @rmap;

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