foreach $label (keys %contact) {
print"$label:$contact{$label}\n";