foreach my $i (keys %in){
    print "$i: $in{$i}\n";
}