use strict;
use warnings;

my @array = ( 1 , 2 , 3 , 4 );
print "The array is @array";

perl ../../programs/array_interpolation.pl 
The array is 1 2 3 4