#!/usr/bin/perl
use strict;
use warnings;

my @items = qw(ok fine great bail);

eval {
    while (@items) {
        return if $items[0] eq 'bail';
        print shift(@items), "\n";
    }

    print "No bail items found today\n";
    return 1;
} or print "Bailed early\n";