{
    my @tab;

    sub teledecode {
        my $tocode   = $_[0];
        my @telecode = ();
        my $i        = 0;
        foreach my $byte ( split //, $tocode ) {
            $telecode[$i] = $telear[$byte];
            $i++;
        }
        @tab = ();
        return arrangecode( "", 0, @telecode );
    }

    sub arrangecode {
        my ( $first, $i, @dat ) = @_;
        foreach my $j ( @{ $dat[$i] } ) {
            if ( $i < ( @dat - 1 ) ) {
                @tab = arrangecode( $first . $j, $i + 1, @dat );
            }
            # I thnk it is faster written as
            # push @tab, $first . $j;
            else { $tab[@tab] = $first . $j; }
        }
        return @tab;
    }
}