my $x = 0;
while ($x++ < 10) {
    print "$x "; #1 2 3 4 5 6 7 8 9 10
}

until ($x++ > 20) {
    print "$x "; #12 13 14 15 16 17 18 19 20 21 
}