perl -le 'for(1) {@l = 1..5; @s = map {last if $_==4;++$_} @l} print "@s"'