$path{megatron}{ftp}='/path/1';
$path{otherron}{http}='/path/2';

$server = shift && $service = shift || die "must input 
server and service";

$variable_name = "${server}_${service}_path";

$$variable_name = $path{$server}{$service};