#! c:\perl\bin

use strict;
use warnings;

my @temp=();
my %HoH=();

while(<>){
    (/^Title/) and next;
    chomp;
    @temp=split/\t/;
    $HoH{$temp[0]}{file}=$temp[1];
    $HoH{$temp[0]}{offset}=$temp[2];
    }