#!/usr/bin/perl -w

use strict;

my $path='C:/dataset/';

my @sign_arr=('A1', 'A2', 'A3','A4', 'A5', 'A6', 'A7', 'A8', 'A9'); 

foreach (@sign_arr)
{
	if(defined (my $filename=(glob("$path*$_*.pkl"))))
	{print "$filename $_\n"}
	else
	{print "not found $_\n";}
}