my @valid_com_ports;
foreach my $com ( map{"COM$_"}1..32)
{
   # decide if this $com is ok or not..
   # perhaps use the open_uart function()
   # and then push @valid_com_ports, $com;
}