#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @set = map { chomp; split /\s/, $_; } <DATA>;
my %lut; @lut{@set} = (1..36); 
my %keys = ( 1 => 'a', 2 => 'd', 3 => 'f', 4 => 'g', 5 => 'v', 6 => 'x' );
#print Dumper \%lut;
print "$_:\t",    $lut{$_}, 
      "\tX:",     $lut{$_} % 6 ? $lut{$_} % 6 : 6, 
      "\tY:",     $lut{$_} % 6 == 0 ? int($lut{$_} / 6) : int($lut{$_} / 6) + 1,
      "\tCode:",  $keys{$lut{$_} % 6 ? $lut{$_} % 6 : 6}, " ", 
                  $keys{$lut{$_} % 6 == 0 ? int($lut{$_} / 6) : int($lut{$_} / 6) + 1},
      "\n" for (qw /p x d/);

_ _DATA_ _
m l k 1 h g
p 2 o i f u
e r b d t z
5 6 s v 7 j
4 a q 3 c 9
y n 0 w 8 x