# $[

    my @array = qw(a b c d e);
    print for @array[1..3]
    __END__
    b
    c
    d

    my @array = qw(a b c d e);
    $[ = 1;
    print for @array[1..3]
    __END__
    a
    b
    c