sub do_stuff {
   my $full_path_to_file = $File::Find::name;
   ...
}

my $sub_ref = \&do_stuff;

#or

find(\&do_stuff, $start_dir);

##</code><code>##

print "The number of people was: $count.\n";

##</code><code>##

for my $val (@vals) {
    ...
    ...
}


##</code><code>##

use strict;
use warnings;
use 5.010;  #if using perl 5.10+