Perl Break Loop