sri@odyssey:~$ perl -MO=Deparse test.pl
use Benchmark;
use vars ('@meine');
use vars ('$bilder', '$dbh', '$cgi', '$sth', '$statement', '$lnr', '$outtext');
use vars ('%meine');
timethese(25000000, {'A', sub {
     
}
, 'B', sub {
     
}
, 'C', sub {
     
}
, 'D', sub {
    our @meine;
}
, 'E', sub {
    our($bilder, $dbh, $cgi, $sth, $statement, $lnr, $outtext);
}
, 'F', sub {
    our %meine;
}
});
test.pl syntax OK