$_ = 'aaaaaaaaaa';
    my @list;
    push @list, pos() while /a/g;
    print "@list\n";

    my @list = (length'a' .. length'aaaaaaaaaa');
    print "@list\n";


    my @b = ('a'..'j');
    my @a = ('a');
    my @list = @a..@b;
    print "@list\n";


    $_ = 'xaaaaaaaaaa';
    my @list = y/x// .. y/a//; 
    print "@list\n";


    $_="\n\n\n\n\n\n\n\n\n\n";
    open(OUT,"+>out.lines")||die "can't $!";
    print OUT;
    seek OUT,$|,$|;
    my @list;
    push @list, $. while <OUT>;
    print "@list\n";
    unlink "out.lines";