Change

print $where->{$_};
[download]

to

print $where{$_};
[download]

$where is not a hash reference, it's a plain hash.