my %keyb = (
    2 => [qw[a b c]],
    3 => [qw[d e f]],
    4 => [qw[h i j]],
    5 => [qw[k l m]],
    6 => [qw[m n o]],
    7 => [qw[p q r s]],
    8 => [qw[t u v]],
    9 => [qw[w x y z]],
);