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

my @array = qw(arrayval1 arrayval2 arrayval3 arrayval4 arrayval5);
my %hash = (key1=>'val1', key2=>'val2', key3=>'val3');

sub check_input_list
{
	print "\n";
	print "@_";
	print "\n";
}

check_input_list(@array, %hash);
check_input_list(\@array, %hash);
check_input_list(@array, \%hash);
check_input_list(\@array, \%hash);