Select Code to Download

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

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