Perl Break Out Of Loop