foreach my $key (keys %hash) {
    my $value=$hash{$key};