sub id{ my $n = 0; $n = ( $n << 1 ^ $_ ) for unpack 'Q(X7Q)*', $_[0]; $n };; print id( $_ ), ' : ', $_ for qw[ /home/nikos/public_html/folder/subfolder/index2.html /home/nikos/public_html/folder/subfoldre/index2.html /homa/nikos/public_html/folder/subfolder/index2.html /home/nikos/public_html/folder/subfoldre/index.html /home/nikos/public_html/folder/subfolder/index.html ];; 14395874431259872676 : /home/nikos/public_html/folder/subfolder/index2.html 18362554206005274164 : /home/nikos/public_html/folder/subfoldre/index2.html 14252040718160727460 : /homa/nikos/public_html/folder/subfolder/index2.html 534634562378736008 : /home/nikos/public_html/folder/subfoldre/index.html 2010048469067125824 : /home/nikos/public_html/folder/subfolder/index.html