Select Code to Download

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

array_ref(\@array);
array_ref(\%hash);

$VAR1 = [
          '1',
...
        ];
Not an array reference at try.pl line 9
        main::array_ref('HASH(0x81d4e14)') called at try.pl line 18