foreach $ttt (@syshosts) { $cname = Host::get_cname($ttt); if( $cname =~ m/(Workstation|AnalogGateway)/ ) { push @serialOperations, $ttt; } }