Select Code to Download

my @number = split '', '1234567';

use strict;
use warnings;
...
print "@$_\n" for @numbers;
print '-' x ($maxDigits * 2), "\n";
print "@result\n";

1 0 9 1 5 6
0 0 0 1 1 4
------------
1 0 9 2 7 0