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

my$foo = [] ;

   
print $foo eq $foo ;