$pie = 123456789;
my $index = 0;
while($index < length($pie)) {
  print substr($pie, $index, 3)."\n";
  $index += 3;
}