c:\@Work\Perl\monks>perl -wMstrict -le
"our $Depth;
 $Depth = 'foo';
 ;;
 if (length[$Depth] != 0) { print 'THIS WORKS?!?'; }
 ;;
 if (length[] != 0) { print 'THIS WORKS TOO?!?!?'; }
"
THIS WORKS?!?
THIS WORKS TOO?!?!?