foreach $item (@listoitems) {
$item = pop(@listoitems);