my @titles = ...; 
if (@titles == 1) {
   $BIGLIST{$title[0]} = [ @RESTOFFIELDS ];
}
elsif (@titles == 2) {
   $BIGLIST{$title[0]}{$titles[1]} = [ @RESTOFFIELDS ];
}
...etc.