#!/usr/local/bin/perl
use strict;
use Data::Dumper;


my @array = (1, 2, 3, 4);

printf "As Array:\n";
printf Dumper(@array);
printf "As Reference to Array:\n";
printf Dumper(\@array);