foreach $oldkey (keys %fdat) {
       if ( ($newkey = $oldkey) =~ s/^redirect_//) {
           $fdat{$newkey} = $fdat{$oldkey};
       }
   }