Mine

my @deploys = qw/ deploy2 deploy3 deploy4 deploy6 deploy7 deploy8 /;

while(1){
my $date = `date`;
print "$date\n";
foreach (@deploys) {
my $check = $_;

--- END original

while(1) {
my $date = `date`;
print $date . "\n";

  foreach my $check (@deploys) {
      yoursub($check)
  }

}

sub yoursub {
    my $check = shift;
    .. do something with $check here ..
}