my $element = $ARGV[0];

my @samples =qw(
tcc140
tcc136
tcc137
tcc141

);

# for ($f = 1; $f <= 70; $f++){
for ($f = 0; $f <= $#samples; $f++){
$sample = $samples[$f];
# $count = 0;
$scan_files = $sample . "." . $scan_len . ".".  $element;
$tc++;
print "nohup perl scan_body_ud10k.pl $element $sample &\n";
}