my $cnt = () = glob "/home/a/*.txt";