push (@switches, my $portcount);
[download]

is (mostly) equal to

push (@switches, undef);
[download]

And that's likely where your undefs come from.