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

##</code><code>##

@reverse = reverse @data;        
@data = @reverse;