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