Use a hash of array of hashes, so that we can remember more than one file per user:

# store the values
push @{$files{$uid}}, { name => $name, size => $size, age => $age};
# use them
foreach my $uid (keys %files) {
  print "$uid: files are:\n";
  foreach my $file (@{$files{$uid}}) {
    print "  $file->{name}\n";
  }
}
[download]

Updated: D'oh. Must remember to braces around the key when dereferencing $file->{name} (rather than $file->name)

--
Tommy
Too stupid to live.
Too stubborn to die.