#!/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);


##</code><code>##


arrayval1 arrayval2 arrayval3 arrayval4 arrayval5 key2 val2 key1 val1 key3 val3

ARRAY(0x1824320) key2 val2 key1 val1 key3 val3

arrayval1 arrayval2 arrayval3 arrayval4 arrayval5 HASH(0x182435c)

ARRAY(0x1824320) HASH(0x182435c)