Or to get the overall effect.

$last = map { pop @mohicans } @mohicans;
[download]

Thus leaving no mohicans other than the one you have in $last.