push @list_ret, reduce { $a+$b-$a%$b*2 } map { $rtoa{$_} } split//, uc($_);