while (my ($key,$value) = each %foo) {
}

##</code><code>##

$count = () = $string =~ /-\d+/g;