use strict;
use warnings;

my @syshosts = ('This is a Workstation');
my @serialOperations;

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