...
foreach my $name (@names) {

            # Skip if it doesn't contain data.
            next unless $name; 

            check_names($name);
}
...

sub check_names {

  my(@names) = @_;	

 my $how_many_names_total = @names;
 print "$how_many_names_total";
      
}
...