#  Read in Data
###############################
open (DATABASE, "$data_file");
@data=<DATABASE>;	
close (DATABASE);
chomp @data;