#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my %hash = ('hello', 1, 'goodbye', 2, 'world', 3, 'mars', 4);
print Dumper \%hash;

$hash{goodbye} = ()[0];
$hash{world} = ()[1];
print Dumper \%hash;