use Modern::Perl;

for ( 1 .. 10 ) {
    my @names =
      (qw/Fred Barney Wilma Betty Bam-Bam Perl Java C++ Ruby Lisp/)
      [ 0 .. int( rand(10) ) ];

    my ( $how_many, $count ) = check_names(@names);
    say "How Many Names: $how_many\nCount: $count\n";

}

sub check_names {

    my (@names) = @_;
    state $count = 0;
    $count++;

    my $how_many_names_total = @names;
    return $how_many_names_total, $count;

}