3 4 4 4 4 19 18 22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 18 1   0 

##</code><code>##

    print( $ar[ord $_] =~ s/.\K$/ /r );

##</code><code>##

3 4 4 4 4 19 18 22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 18 1 

##</code><code>##

    print( ( $ar[ord $_] // '' ) =~ s/.\K$/ /r );