sub test(){
  print "\$#{\@_} = $#{@_}\n";
}

##</code><code>##

$VAR1 = 'insert into test (foo1, foo2, foo3, foo3, foo5, foo6) VALUES (?,?,?,?,?,?) ';
$VAR2 = 'datum1';
$VAR3 = 'datum2';
$VAR4 = 'datum3';
$VAR5 = 'datum4';
$VAR6 = 'datum5';
$VAR7 = 'datum6';