Vielleicht hilft dir File::Basename?

Ansonsten: warum überhaupt hashen? Man könnte ja auch einfach / durch __ ersetzen (ok, dann kann es Konflikte geben, aber wird wohl vermutlich nicht der Fall sein - wenn doch, müsstest du halt einen anderen Separator nehmen). Das hätte den Vorteil, dass man die Zuordnung noch erkennt statt eine wilde Zahlenkombination zu haben.