Shielding recoding against random hash seeds in perl 5.18