perl -e '$i=1; $i = $i<5 ? $i++ : 1; print "$i\n";'
  1