Array Perl

  1. Home
  2. Perl
  3. Array
  4. Array Elements
#!/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";
}