Select Code to Download

#!/usr/bin/perl -w
use strict "vars" ;
my $data ;
...
${$splitter[ 0 ]} = $splitter[ 1 ] ;

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