chomp $msg;
print ord(reverse $msg), "\n";