#!/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', 'world'} = ('farewell');
print Dumper \%hash;