use constant N => 3;
my $counter;

my @a = 'A' .. 'Z';

$counter = 1;
ELEMENT:
foreach my $val (@a) {
    last ELEMENT if $counter++ > N;
    print "Looking at $val\n";
}