use strict;
use Data::Dumper;
$\="\n";

my @arr;
@arr=('dummy'); 

@arr=();
if  ( defined @arr ) {
	print "Array wurde definiert \t",Dumper \@arr 
}

undef @arr;
unless  ( defined @arr ) {
	print "Array wurde nicht definiert \t",Dumper \@arr 
}