#!/usr/bin/perl
use strict;
my $check;

my @text = ("Hi there 11", "Fred blamed me", "17 o clock", "It's snowing hampsters", "Pickles are

people too!");
foreach (@text) {
   if ( /11/ ||  /are/) {
  print "test successful";
  $check++;
  } 
  
}
  
unless ($check) {
  print "test failed";
}