C:\Dokumente und Einstellungen\Renee>perl -Mwarnings -e "my @a = (undef,undef); if($a[0] eq $a[1]){print 'hallo'}"
Use of uninitialized value in string eq at -e line 1.
Use of uninitialized value in string eq at -e line 1.
hallo