use strict;
use File::Slurp;
...
my $dir_to_open = "../../pics";
my $arch = "../../arch";      

      while (my $row = $sth->fetchrow_hashref()) {

         for my $imgfile (map $row->{"image_$_"}, 1..4) {

             for my $file_to_mv (grep { -f } read_dir($dir_to_open)) {
                    if($file_to_mv=~/$imgfile/) {
	                 #move("$dir_to_open/$file_to_mv", $arch);
	                 print "Test before move: $dir_to_open/$file_to_mv<br>";

              }   
         
         }

       }