my %telealph = (
    ( map { $_ => $_ } ( 0 .. 9 ) ),
    ( map { my $d = $_; map { $_ => $d } @{ $telear[$d] } } ( 0 .. $#telear )
  );