#!/usr/local/bin/perl use strict; use warnings; use Data::Dumper; my$foo = [] ; print $foo;