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

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

##</code><code>##

$title = 'somethng interesting';
$offset = $offsets{$title};
$file = $files{$title};