# Simulate shift. (Does NOT work!)
for my $i (1 .. $#array) {
     $i--;
}

##</code><code>##

$hash{newkey} = delete $hash{oldkey};