foreach (keys %list) {
my $value = $list{$_};

my ($date, $message, $email) = split(/:/, $value);
print "The date is: $date"; # 1.11.04 or 8.3.04
}