$hash{ do{ $_ =~ s/(..)$//; $_ } } = delete $hash{ $_ } for keys %hash;