c:\@Work\Perl>perl -wMstrict -le
"my $arrayref = [ 3,2,2,3,3,3,1 ];
 ;;
 sub func {
   my ($msg, $ar) = @_;
   ;;
   printf qq{$msg: scalar ref: $ar };
   printf qq{'$_' } for @$ar;
   printf qq{(%d elements) \n}, scalar @$ar;
   }
 ;;
 func('A', [ 9, 8, 7 ]);
 func('B', $arrayref);
"
A: scalar ref: ARRAY(0x1cb226c) '9' '8' '7' (3 elements)
B: scalar ref: ARRAY(0x6fd05c) '3' '2' '2' '3' '3' '3' '1' (7 elements)