It appears from your code that you want to use the time that the script was run as the timestamp on the file, as opposed to the timestamp of the original file you were copying.

If that's the case, may I suggest:

use File::Copy;

my ($sec, $min, $hour) = localtime();

foreach my $upload (@uploads) {
    my $newName = $upload;
    $newName =~ s/\.zip$/${hour}:${min}:{sec}.zip/;
    copy ($logSite . ${upload}, $localCpPath . $newName)
        or die "Failed to copy "$upload";
    print "File $upload has been copied over and renamed $newName\n";
}
[download]

Hello, It seems to work. I made one minor changes as the month day and year seem to be a better identifer.

   foreach my $upload (@uploads) {
         my $newName = $upload;
         $newName =~ s/\.zip$/-${mday}-${mon}-${year}.zip/;
         copy ($logSite . ${upload}, $localCpPath . $newName)or die "F
+ailed to copy";
         print "File $upload has been copied over and renamed $newName
+\n";
         }
[download]

I had one further question. I forgot to mention the files can eitehr be .zip or .zip.meta Now I see that we are only zip files with the pattern matching. What would be the best way so it changes the meta file aswell. If statement perhaps in the middle of the for loop?

or, TIMTOWTDI...

#!/usr/bin/perl
use warnings;
use strict;
#769688

my ($sec, $min, $hr);          # easier on your fingers; fewer "my"s..
+.
($sec,$min,$hr) = localtime(time);

if ( $sec =~ /(\d{1})/ ) {     # deal with times ending w/0..9 seconds
    $sec = "0" . $1;
}

my $file = 'filename.zip';    #if you need to act upon a list of files
+, loop

my @filenamearray = split(/\./, $file);

my $newfilename = "$filenamearray[0]" . "-" . $hr . ":" . $min . ":" .
+ $sec . "\." . $filenamearray[1];

print $newfilename . "\n";

#now upload $newfilename...
[download]

Output of repeated execution appears to meet your spec.

filename-19:50:00.zip

filename-19:50:04.zip

filename-19:50:07.zip

filename-19:50:09.zip

filename-19:50:10.zip

filename-19:50:11.zip
[download]

my $newfilename = "$filenamearray[0]" . "-" . $hr . ":" . $min . ":" .
+ $sec . "\." . $filenamearray[1];
[download]

In such cases, I personally prefer interpolation over concatenation:

my $newfilename = "$filenamearray[0]-$hr:$min:$sec.$filenamearray[1]";
[download]

Appears less cluttered to my eyes (YMMV).  As there's nothing special about either '-', '.' or (single) ':' in double quoted strings, and they can't be part of variable names, you can write them just as is.

Or maybe use sprintf() to get regular zero-padded 2-digit format:

my $newfilename = sprintf "%s-%02d:%02d:%02d.%s", $filenamearray[0], $
+hr,$min,$sec, $filenamearray[1];
[download]

Hello all, Thanks for suggestions. Let me give it a try and see.