my $portmap = 3000 + ($port-2000)*10;