#!/usr/local/bin/perl
    @one_to_onehundred = (1 .. 100000000);
    $top_limit = 100000000;
    for $i (@one_to_ten, 15, 20 .. $top_limit) {
        print "$i\a";
    }