sub empty_to_undef {
   no warnings 'uninitialized'; 
   return length($_[0]) ? $_[0] : undef;
}