foreach(keys %globals){
   if( ref $globals{$_} eq 'ARRAY' ){
       @{ $globals{$_} } = ();
   } else {
       $globals{$_} = '';
   }
}