my $idx=0;
$idx++ while $array[$idx] ne 'entry' && $idx < $#array;
die 'Entry not found' 
    if $idx == $#array 
    and $array[-1] ne 'entry';