%fdat = (
    'redirect_sam' => 'boondoggle'
);

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