my $var = 0;

$var = @array;

for ($i = 0; $i <= $var; $i++) {
	%hash = ($array[$i] => "");
}