open(IN, "<file") or die "failed: $!";

while(<IN>)
{
  chomp;
  my ($title, $file, $offset ) = split(/\t/, $_);
  $offsets{$title} = $offset;
  $files{$title} = $file;
}