use Data::Dumper; 
my $foo="12345678912345678";
my @foo;
while($foo){
     push @foo, substr($foo, 0, 3, "");
}
print Dumper \@foo;