hash value grep in perl

foreach my $key ( grep /^text:/, keys %hash ) {
     my $value = $hash{$key}    
}