Perl Breaking Out Of An If Statement