my $pie = 123456789;
my @pies = ($pie =~ /(\d{3})/g);
print join("\n", @pies);