Titus:~/tmp/perl-5.13.6$ perl -e 'map {print "$_\n"} split //, "73"'
7
3


// In a java file somewhere
        String[] markss = "89".split("");
        for (String mark : marks) {
            System.out.println("Mark: " + mark);
        }
// Output:
// Mark:
// Mark: 7
// Mark: 3