foreach my $key (sort grep(/$string/,keys %hash)) {
    if($key =~ /^$string(.*)$/) {
       blah;
    }
    if($key =~ /^(.*)$string$/) {
       blah;
    }
}