my $file_rand;

do {
  $file_rand .= int rand(time) for 1..3
} while -e $file_rand;