my @titles = ...; 
my $ref = \%BIGLIST;
while (@titles > 1) {
   my $title = shift @titles;
   $ref = \($ref->{$title});
}
$ref->{$title[0]} =  [ @RESTOFFIELDS ];