use strict;
use warnings;
use feature qw( state );

while (my $code = get_code())
{
    print "Send email re: http code $code\n" if $code != 404 .. $code == 404;
}

sub get_code
{
    state $codes = [ 200, 200, 404, 404, 404, 404, 200, 200, 404, 404, 200, ];

    return shift @$codes;
}