my $dir = 'c://testFolder/local/';
my $base = 'tim';
my @names = grep {-f} map {$dir . $base . $_} 15..50;