$filename=print($a,$x,$c) ;

##</code><code>##

#!/usr/bin/perl -w
$job="eman-ctf.b";
for ($x=3 ; $x <=4 ; $x++){
        $a='/sData/users/Musa/Necen/process/EspB-trunc/espbtrunc-imagic-ctf/3-img-no-ctf/box/et3f-' ;
        $c='.box';
        $d=print($a,$x,$c) ;
        $filename = $d;
        print $d ;
        if (-e $filename) {
                   print "File Exists!";

  @_=($job,$x);
  system(@_) == 0
   or warn "system @_ failed ";
}
}