#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %content = ( 'a' => 666, 'b' => 2);

print "Vorher:\n";
print Dumper \%content;

change_hash(\%content);

print "Nachher:\n";
print Dumper \%content;


sub change_hash {
    print "Bin im sub.\n";
    my $href = shift;
    print "Im sub: hash-wert von 'a' ist $href->{'a'} - aber nicht mehr lange...\n";
    $href->{'a'} = 42;
    $href->{'c'} = 7;
}