foreach my $key ( %${hashref} ){

You should use keys:

      foreach my $key ( keys %${hashref} ){
          print $hashref->{$key}->{'ProductName'};
[download]

use strict and warnings catches such bugs.