if(@ARGV < 3) {
	print "USAGE:: well_identifier.pl <Input file (BAC's 384 tab delimited text file)> <Plate Number (Plate1/Plate2,Plate3 or Plate4)> <Query (i.e. b2> \n**************Use this program to extract Well location of 96 well plate from 384 well plate***********\n";
	exit;
}
use Data::Dumper;
use LIMS::MT_Plate;
use Microarray;

my $inputfile = $ARGV[0];
my $queryplate = $ARGV[1];
my $plateno = $ARGV[2];
my $query = $ARGV[3];

open(IN,$inputfile) || die "cant open file";
@data=<IN>;
close(IN);

foreach $line(@data)
{
	chomp($line);
#print"$line";
#print "till now...its working \n";
$oPlate1 = mt_plate->new('Plate1',96);
$oPlate2 = mt_plate->new('Plate2',96);
$oPlate3 = mt_plate->new('Plate3',96);
$oPlate4 = mt_plate->new('Plate4',96);

$oPlate1->fill_wells(\@samples1);
$oPlate2->fill_wells(\@samples2);
$oPlate3->fill_wells(\@samples3);
$oPlate4->fill_wells(\@samples4);

$oPlate5 = mt_plate->new('Plate5',384);
$oPlate5->import_mt_plate_file('mt_plate_file',$inputfile);

#$oPlate5->join_plates($oPlate1,$oPlate2,$oPlate3,$oPlate4);

#$sample_name = $oPlate5->get_sample_name('b2');
#$sample_name = $oPlate5->get_sample_name($query);
print "The sample $query placed in $queryplate is the location $sample_name of Master Plate\n";

}