use strict;
use warnings;

my @stuff = (0,1, undef);

for (0..3)
{
	print "Element $_ : " . 
	(!exists ($stuff[$_]) ? 'Does not exist' :
	!defined ($stuff[$_]) ? 'is Undef' :
	"is '$stuff[$_]'")
	. "\n";	
}