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

##</code><code>##

Invalid value for shared scalar at r21shutdown_parallel.pl line 131, <FILE> line 15.