my($a, @list);
$a = pop(@list);
pop(@list);
$a = pop
