#!/usr/bin/perl
# Script #2 JSON version
use JSON;
my $i, $href,$JSONdata;

open(IFIL,"<fileHash.dat"); $JSONdata= <IFIL>; close(IFIL);

$href = decode_json($JSONdata);

my %eTAG = %$href;  #This was the key to getting it working.

foreach $i (keys %eTAG) { print "$i $eTAG{$i}{'mpg'}\n"; }
exit 0;