#!/usr/bin/perl

$dir = "/ddn/gs1/project/mousemeth/ChIPseq/FOXA1_June2018/tracks";
@ids = ("ChIP_FOXA1-B6-ds", "ChIP_FOXA1-C3-ds", "input-B6-ds", "input-C3-ds");

foreach $id (@ids) {
  $file = "$id.bwt.rmdup.singlefrag.bigWig";
  unless (-e $file) { print "cp $dir/$file . &\n"; }
}