See reverse on how to reverse a string. See split on how to split a string into characters.

my $var = "8940163...835";
for my $char (split //, reverse $var) {
    print "$char\n"
}
[download]