n=1;
get the first n chars of $key;
make a hash-lookup; if exists put to list of prefixes;
get the last n chars of $key;
make a hash-lookup; if exists put to list of suffixes;
if n<length($key) { n++; reiterate }