use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print STDERR Dumper "The Dumper value is $_jobcard_basename";
print STDERR Dumper "The found file". \@found_files;

$VAR1 = "The Dumper value is pdi_chs";
$VAR1 = "The found fileARRAY(0x414c7350)";