#!/usr/bin/perl for ($i=0; $i<3; $i++) { if ($i == 1) { last } print "i = $i\n"; } # prints the following: # i = 0