Select Code to Download

pop @mohicans;

$mohicans[-1];

@couples = map [ pop @brides, pop @brothers ], 1..7;

%couples = map { (pop @brothers, pop @brides) }, 1..7;