use strict;
use warnings;

foreach my $num_string ('0000'...'9999')
{
    my($i,$j,$k,$l) = split (//,$num_string);
    print "i=$i j=$j k=$k l=$l\n";
}

##</code><code>##

i=0 j=0 k=0 l=0
i=0 j=0 k=0 l=1
i=0 j=0 k=0 l=2
i=0 j=0 k=0 l=3
i=0 j=0 k=0 l=4
i=0 j=0 k=0 l=5
i=0 j=0 k=0 l=6
i=0 j=0 k=0 l=7
.....
i=9 j=9 k=9 l=3
i=9 j=9 k=9 l=4
i=9 j=9 k=9 l=5
i=9 j=9 k=9 l=6
i=9 j=9 k=9 l=7
i=9 j=9 k=9 l=8
i=9 j=9 k=9 l=9