#!/usr/bin/perl

use strict;

use Data::Dumper;

my_sub({foo => 'bar', oof => 'wha'});

sub my_sub {
	my $ref = shift;

	my %args = (
		foo => 'oop',
		pah => 'meh',
		oof => 'off',
		%{$ref}
	);

	warn Dumper(\%args);
}