#!/usr/bin/perl
use warnings;
use strict;

foo({ hallo => 'welt' });

sub foo {
    my %bar = %{+ shift };

    print $bar{hallo}, "\n";

    return;
}