{
   use Data::Dumper;
   local $Data::Dumper::Useqq = 1;
   print Dumper \@temp;
   print Dumper $_jobcard_basename;
   print Dumper \@found_files;
}

##</code><code>##

use strict;
use warnings;

my @temp = '/iri/irs-dev2/dairyassoc/job.trigger/RUNNING.sub-D625448-1.pdi_chs.xml';
my $_jobcard_basename = 'pdi_chs';

my @found_files = grep (/$_jobcard_basename/,@temp);

print("Found ", scalar(@found_files), " file(s):\n");
print("$_\n") for @found_files;

##</code><code>##

Found 1 file(s):
/iri/irs-dev2/dairyassoc/job.trigger/RUNNING.sub-D625448-1.pdi_chs.xml