#!/usr/bin/env perl $user = 'user'; $site = 'site'; $usersite{$user}{$site}{"ip"}{1}++; $usersite{$user}{$site}{"ip"}{2}++; $usersite{$user}{$site}{"ip"}{1}++; for $user ( sort keys %usersite ) { my $sites = $usersite{$user}; my @sitelist = sort keys %$sites; foreach $site ( @sitelist ) { print $user . ':' . $site; my $record = $$sites{$site}; print join ', ', keys %{$$record{"ip"}}; } } print "\n";