For the hash reference, you have to create a k/v pair for each key inside of your referenced hash. Dirty.

    while( my ($k, $v) = each %$image_info ) {
        print "key: $k, value: $v.\n";
    }
[download]