#!/usr/bin/perl 
$array=undef;
warn "array ",defined($array) ? 'is' : 'is not'," defined";
warn '$#{$array} is ',$#{$array};
warn "array ",defined($array) ? 'is' : 'is not'," defined";