sub table{
   seek(TRACK, 0, 0);
        while (<TRACK>){
@trk_data = split(/;/);
}