in reply to Uninitialized value
Your missing somthing. Test it.
my $junk; print 1 + ($junk || 0); [download]
my $junk = 11; print 1 + ($junk || 0); [download]
my $junk = 0; print 1 + ($junk || 15); [download]