my $files_like = time;
my @existing   = map {m/tmp_(\d+)$/} glob('./tmp_*');

my $next_file  = nextuniq($files_like,\@existing);
open TEMP,">./tmp_$next_file" or die;
#    do something
close TEMP;