($_jobcard_basename = basename($_job_card)) =~ s/^sub\.//i;
 $_jobcard_basename =~ s/\.xml//;
use Data::Dumper;
chomp($_jobcard_basename);
print FOUT $_jobcard_basename;
local $Data::Dumper::Useqq = 1;
print STDERR Dumper "The Dumper value is $_jobcard_basename";