Why not go with straight unix time, so sorting would be easy.

#!/usr/bin/perl

$fname = time.'.'.('0' x (14 - length(int(rand(1e14))))) . int(rand(1e
+14));
print "$fname\n";
open (FILE,"> $fname"); 
close FILE;
[download]

Very low name collision rate. :-)