Select Code to Download

    @a = ()[1,0];           # @a has no elements
    @b = (@a)[0,1];         # @b has no elements
    @c = (0,1)[2,3];        # @c has no elements

    @a = (1)[1,0];          # @a has two elements
    @b = (1,undef)[1,0,2];  # @b has three elements

    while ( ($home, $user) = (getpwent)[7,0]) {
        printf "%-8s %s\n", $user, $home;
    }

    while(  ( $home, $user )= @results[7,0]  ) {
        ...
    }

    @c = (0,1)[2,3];        # @c has no elements

    @d= (1,2,3)[9,1,8];  # @d= (undef,2,undef);