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