Array Perl

#!/usr/bin/perl 
print "Content-Type: text/html \n\n"; 
# This script demonstrates how to create a numeric array. 
@AcmeInventory = (178,286,387); 
print @AcmeInventory; 
print "

We just created a list of numbers using an array variable!";