I printed some of the output because it was not working correctly and it tries to put the hash key value pair in as the directory to copy to and I just want the keys as the directory names to copy to in:

copy($file, "$to_dir/$dir") or warn "Cannot copy '$file' to '$to_dir/$fi le' $!"