gistfile1.txt

#!perl6

use v6;
use Slang::Tuxic;

my @ch = 1 .. 10;

for @ch -> $ch {
    $ch == 5 and @ch.push (11..15);
    $ch.say;
    }
@ch.perl.say;


=>

1
2
3
4
5
6
7
8
9
10
Array.new(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)