my $serviceID=$ARGV[0];
my $perlKey=’perl_’.$serviceID;
my $result = $memcli->get($perlKey);

##</code><code>##

$perlString = $val1.’,’. $val2.’,’. $val3.’,’. $val4.’,’. $val5.’,’. $val6;
$memcache->set($perlKey, $perlString, 0, 10);