#!/usr/bin/perl -w
use strict;

my $matches = {
    foo => { 1 => 'one', 2 => 'two' },
    bar => { this => 'that' }
};

while ( my ($pid,$pid_values) = each %$matches ) {
    while ( my ($key, $value) = each %$pid_values ) {
        print "$pid:$key:$value\n";
    }
}
[download]

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)