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

my @arr = ('a','b');
my %has = (
	foo	=> 'bar',
	bar => 'foo',
);

test (\@arr);
test (\%has);

sub test {
	print "bekomme: " . ref ($_[0]) . "\n";
}