my $file = 'somefile*';
...
my (@files) = (grep (/$file/, readdir(F)));