#!/usr/bin/perl use warnings; use strict; my @band = qw(A B C D); my $ref = \@band; for (0..3) { print "Array : ", $band[$_] , "\n"; print "Reference: ", ${$ref}[$_], "\n"; }