@_ = 'world!';

my %hash;

$hash{ shift } = 'Hello';
$hash{ +shift } = 'Goodbye';

print "$k => $v\n" while my($k, $v) = each %hash;

# prints
shift => 'Hello'
world! => 'Goodbye'