my $portmap = '3' . substr($port, 2, 2) . '0';