sub serial_finder {
    my @list;

##</code><code>##

my $comport = 1;
my @list;
...


sub com_list_create {
    print "running\n";
    foreach my $comlist (@list) {
...