use Data::Dumper;
@array_time=localtime;
if ( $array_time[2] == 0 ) {
   print "Now the time is |$array_time[2]|..\n";
   $firstFile = "file_"."23.txt";
   print "First File will be |$firstFile|\n";
}