#!/usr/bin/perl
use strict;

my @array = qw( perl is very cool );
my %hash = ( perl => "coder" );

print "\@array = ", ref( \@array ), "\n";
print "\%hash = ", ref( \%hash ), "\n";
print "\&subroutine = ", ref( \&subroutine ), "\n";
print "\*array = ", ref( \*array ), "\n";

sub subroutine {
  print "I'm a perl coder!\n";
}

##</code><code>##

@array = ARRAY
%hash = HASH
&subroutine = CODE
*array = GLOB