# perl -MData::Dumper -e 'my @tests = 1 .. 10; @{ \my %ntests }{ @tests } = (0) x @tests; print Dumper \%ntests;' 
$VAR1 = {};