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