#!/usr/bin/perluse strict;my @array = qw( hello world );print( 'ref(\@array) = ', ref( \@array ), "\n" );