if ( $incomplete_isbn =~ m/^\d{5}$/ ) {
    my $re_key = qr/.+$incomplete_isbn.+/;

    my @matching_keys = grep /$re_key/,
                        keys %$hashref_isbn;

    ...
}