Auto Check if has items
Merge https://github.com/sxw2k/Perl_wiz