perl -le '$h{""}=undef; print ">",defined delete $h{""},"<"'
><