#!/usr/bin/perl

use strict;

use Data::Dumper;

my %hash = ();

my_sub(foo => 'bar', oof => 'wha');
my_sub(pah => 'eek');

sub my_sub {
	%hash = (
		foo => 'oop',
		pah => 'meh',
		oof => 'off',
		@_
	);

	warn Dumper(\%hash);
}