foreach $ID(@ID) {
        chomp $ID;
        if ($ID=~ m/@files/) {
                print @files
        }
}