my @array = qw(hey hello yes no key dog cat);

foreach (@array) {
   if (/key/) {
     msg('Yes, key found');
     exit;
   }
 }

sub msg {
  my ($msg) = @_;
  print "$msg\n";
}