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