#!/usr/bin/perl -w
use strict "vars" ;
my $data ;
my @splitter ;
$data = "testval,1" ;
@splitter = split( "," , $data ) ;
${$splitter[ 0 ]} = $splitter[ 1 ] ;

print ${$splitter[ 0 ]}, "\n";