use strict ;
use warnings ;
use Data::Dumper ;

open my $data,"<","ID_file.txt" or die "NO ID FILE: $!";
open my $attrs,"<","Attribute_file.txt" or die "NO ATTR FILE: $!";


sub getdata {
    while(<$data>){
    my ( $fileName, $type ) = split /\t/, $_[1] ;
    push @{$data}, $type unless !defined $fileName ;
}
}


sub getattrs {
    while(<$attrs>){
    my @attrs = split /\t/, $_[1] ;
    shift @attrs ;
    push @{$attrs}, \@attrs unless !defined $attrs[0] ;
}
}