use strict;
 my(undef, $aa, $bb) = dir();
Can't declare undef operator in my at (eval 159) line 2, near ") ="