$data{fc$_} = delete $data{$_} for keys %data;