sub load_array($$) <br>
	{ <br>
	my ($a_ref, $file) = @_;<br>
	open (FILE, $file) or die "Can't open $file:$!\n";<br>
	@{$a_ref} = <FILE>;  <br>  
	close FILE;  <br.  
	chomp @{$a_ref};
	}