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