my @nums;
push @nums, substr($a, 0, 3, "") while length($a);