foreach my $file (@files)
{
   my $ext;
   $file =~ m/(.[^.]+)$/;
   $ext = $1;
   my $orig = $file;
   $orig =~ s/\..*$//;
	rename $file, time() . "($orig)" . $ext or die $!;
}