@fields = split /:/; $process = shift @fields; $hash{$process}{'TEXT'} = shift @fields; $hash{$process}{'ACTION'} = shift @fields; $hash{$process}{'EMAIL'} = shift @fields; #### foreach my $processKey (sort keys %hash) { print "$_"; foreach my $hashKey (sort keys $hash{$processKey}) { print ":$daemontable{$processKey}{$hashKey}\n"; } }