my $var|= '000000000000022102840002210284';
my $length = 10;
my @nums;

push(@nums, substr($var, 0, $length, '')) for (1 .. length($var) / $length);

print join("\t",@nums);