Select Code to Download

#!/usr/bin/perl -w
use strict;
...
check_input_list(@array, \%hash);
check_input_list(\@array, \%hash);

arrayval1 arrayval2 arrayval3 arrayval4 arrayval5 key2 val2 key1 val1 
+key3 val3
...

ARRAY(0x1824320) HASH(0x182435c)