#!/usr/bin/perl

# This was such an unbelievable bitch to get my head around.
#
# Enough that my understanding of it warrants preservation
# in the exact form as when I first encountered it.

use warnings;
use strict;
use feature "say";
use Data::Dumper;

sub emblazon {
	my ($items) = @_;
	${$items}{Sword} .= ' and enhanced.';
}

my %items = (
	Sword	=>	'Sharp',
	Shield	=>	'Strong',
	Armour	=>	'Sturdy'
);

emblazon \%items;
print Dumper \%items;

Add a Perl snippet for modifying a dereferenced hash
Add a Perl snippet for modifying a dereferenced hash

After a 2.5-hour grappling session with compiler errors, I've understood
why people lose heart in their attempts or desire to learn Perl. Context
and sigils are a bitch to get one's head around.
