Select Code to Download

#!/usr/bin/perl
use warnings;
...
    return $a if ( $a le reverse( $a ) );
    return reverse( $a );
}

C:\Code>perl symmetrize.pl
AA => 2
...
CZ => 3
YZ => 2
ZZ => 4