if ($file =~ m/^Check/)
{
print " File - 1 :=$file\n";
}
elsif ($file =~ m/^CSEK.*TT1.dat$/)
{
print "File - 2 :=$file\n";
}
elsif ($file =~ m/^CSEK.dat$/)
{
print "File - 3 :=$file\n";
}