print time(); 
my @randUnique = shuffle map{ 
    sprintf "%07d%05d", 1e7+int( rand 1e6 ), $_ 
} 1 .. 1e6; 
print time();;
1209603392
1209603398 ## 6 seconds for 1e6