my %service=($name,[$portnum,$proto]);