foreach my $img ( sort keys %images ) {
    my $kilobytes = 0;
    my $file_num = 0;
    print "key = $img\n";
    my $count = 1;
    foreach ( @{$images{$img}->{frags}} ) {
        foreach(@{$_}) {
            $kilobytes += $_->{kilobytes};
            $file_num += $_->{file_num};
            print "frag".$count++." media ID = $_->{media_id}\n";
        }
    }
    print "image kilobytes = $kilobytes  ";
    print "image number_of_files = $file_num\n";
}