langage perl et bash ,utilisation qsub

Bonjour je lance un qsub depuis un script perl
Voici le script

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#generate qsub file and launch it
my $qsuboutfile3 = "summary_$chr.qsub";
open (QSUB,">summary_chr/$chr/$qsuboutfile3")or die "\nError : $qsuboutfile3 file could not be created: $!\n";
print QSUB qq(#!/bin/bash
#\$ -S /bin/bash
#\$ -V
#\$ -M $users{$user}
#\$ -m e
#\$ -o $qsuboutfile3.out
#\$ -e $qsuboutfile3.err
#\$ -cwd
#\$ -q long.q
#\$ -pe thread 3
# command(s):
hostname >&2
 
for sample in $(ls *_rmdup_$chr/_find_CNV.txt)
	do cat $sample > summary_$chr.txt
done
sort -t: -k 3,3 -n  summary_$chr.txt  | uniq -c - > summary_$chr/_sorted.txt
 
);
close QSUB;
#launch qsub job if asked
my $jobid;
if ($submit eq "yes") {
	my $dependencies = "-hold_jid ".join(",",@compare_samples_jobs);
	my $instruction = "cd summary_chr/$chr;qsub $dependencies $qsuboutfile3 | awk '{print \$3}'";
	$jobid=qx{$instruction};
	chomp $jobid;
	$summary_samples_jobs{$chr}=$jobid;
	print STDERR ".";
	}

Et quand je fais tourner le script voici ce qu'il me dit

Citation:

Global symbol "$sample" requires explicit package name at /projet/gabi/save/kbarrilliot/bin/sge_CNVcapt_FINAL_essai.pl line 284.

Et ce $sample doit etre compris dans le script bash et non dans le perl.
Merci de votre aide