perl -le'print"hi ".++$_ until/0/'