oops, didn't notice. Change

$hash{$array[0]} = { $array[1] => $array[2] };
[download]

to

$hash{$array[0]}{$array[1]} = $array[2];
[download]

which is a shortcut for

$hash{$array[0]} = {} if not defined $hash{$array[0]};
$hash{$array[0]}{$array[1]} = $array[2];
[download]