#!/usr/bin/perl
opendir(DIR, "/samplesA") or die "Can not open folder, $!\n";
@files = readdir(DIR);
closedir (DIR);
open (IN,"</ID.txt")or die "Can not open barcode file, $!\n";
@lines=(<IN>);
close IN;
foreach $file (@files)
{
if ($file =~ m/fq$/)
{
foreach $line (@lines)
{
        my ($id, $barcode) = split(/\t/,$line);
if ($file =~ m/$barcode/)
{
        my $new = $file;
        $new =~ s/sample_$barcode/$id/;
        rename ($file, $new) or die "Can not change $file to $new, $!\n";
}}}}