#!/pw/prod/svr4/bin/perl
use warnings;
use strict;
use Data::Dumper;
 
my $array;

print Dumper(@array);