pop @mohicans; #### $mohicans[-1]; #### @couples = map [ pop @brides, pop @brothers ], 1..7; #### %couples = map { (pop @brothers, pop @brides) }, 1..7;