for my $f (@myGlob) {
   next unless -f $f;
   warn "can't move $f\n" unless move ($f,$RecBak);
}