$fdat{$_} = $fdat{"redirect_$_"} 
     for map { /^redirect_(.*)$/ ? $1 : () } keys %fdat;