#!/usr/bin/perl

use warnings;
use strict;

sub tear_us_outta_here {
    print "Getting out of loop labeled FOO.\n";
    last FOO;
}

FOO: for ( 1 .. 10 ) {
    print "At $_.\n";
    if ( $_ == 4 ) { tear_us_outta_here(); }
}