#!/usr/bin/perl
use strict;
use warnings;

use constant FECHA => 3; # en que posición de cada línea es la fecha

sub prepara_datos {
  my ($fichero) = @_;
  my %fechas;
  open my $IN, '<', $fichero or die "No se puede abrir '$fichero': $^E\n";
  my $posicion=0;
  while (<$IN>) {
    chomp;
    my @columns = split /\t/, $_;
    $fechas{$columns[FECHA]} = $posicion;
    $posicion = tell($IN);
  }
  return ( $IN, \%fechas);
}

sub busca_fecha {
  my ($FICHERO, $fechas, $fecha) = @_;
  if (exists $fechas->{$fecha}) {
    seek($FICHERO, $fechas->{$fecha}, 0);
    my $linea = <$FICHERO>;
    chomp($linea);
    my @columns = split /\t/, $linea;
    return \@columns;
  } else {
    return; # la fecha no esta en el fichero
  }
}

#...
my ($FICHERO, $fechas) = prepara_datos( $fichero);

foreach my $fecha (@fechas_para_buscar) {
  my $datos = busca_fecha( $FICHERO, $fechas, $fecha);
  if (! $datos) {
   print "No he encontrado $fecha!\n";
  } else {
     # haga algo con @$datos
  }
}