open(FILE, $theFile) or die("cannot open file : $!");
	while (<FILE>) {
		$line = <FILE>;
		@line_parts = split (/\|/, $line);
		$var_0 = $line_parts[1];
		$var_1 = $line_parts[7];
		$var_2 = $line_parts[8];
		$var_3 = $line_parts[9];
		@tmp = ($var_1, $var_2, $var_3);
                push @{$theTable[$var_0]},  [ @tmp ];
	}
	close(FILE);