use File::Find::Rule;

my @wanted = File::Find::Rule->file()
	->name( qr/A[0-9].*\.pkl$/ )
	->in('c:/dataset/');