sub count_it {
   our $num ||= 0;
   $num++;
}
sub print_it {
   our $num ||= 0;
   print $num, "\n";
}