use v5.14; my @nums = (1,2,3,4); say do{local($_,$.);$_+=pop(@nums)*!!++$. while@nums;$_/$.};