ich würde den eindeutigen Teil greifen und im zwoten Schritt die Korrektheit des Rests prüfen:

also
/^(q)\w*$/

und dann

index($full{$1}, $&);

überprüfen.

also $full{q}="quit";

hätte auch den Vorteil dass du es in ner Schleife über den Hash realisieren könntest, mit den keys als eindeutigen Teil in der Regex und den values im index.

oder du baust eine große regex mit
$abr="(".join "|",keys %full.")";
/^$abr\w*$/;

so in der art...