#!/usr/bin/perl -w 


@dir = qw(hs1A_50
hs1B_51
hs1C_52
hs1D_53);

@info = qw(wt+DMSO 
wt+pB
y2h2+DMSO
y2h2+pB);


@files = qw(
YKR095W-A.pdf
YPR028W.pdf
YDL191W.pdf
);

$n=0;

foreach $f (@files){
#system("montage $dir[0]/$f $dir[1]/$f $dir[2]/$f $dir[3]/$f panels/$f ");

system("cp panels/$f.jpg bb.$n.jpg");
$n++;

}

system("convert -page bb.0.jpg -page bb.1.jpg -page bb.2.jpg  -page bb.3.jpg -layers merge  merge3.jpg");