: #the matter it is traveling through; air, water, or steel.

#the matter it is traveling through; air, water, or steel.

#The id number(s0 are put into an array @accnumber.

: : #the system function

: #the system function

#the system function

ROOT = .... #the develop directory location

use DBI; #the perl database module

300 #The join function takes a list of values

110 my @lines = "";#these are to initialise arraeys of words and lines to conatin the empty string at first

#the array.

#These hold the details we want to use...

##The oldest one is added to @killarr and unlinked leaving ##

: @str_array = split(//,$my_str);#there must be NO space between the two slashes

@str_array = split(//,$my_str);#there must be NO space between the two slashes

#The following IF looks for a string in a NAME COLUMN of current line

: # $flag_esecuzione_matching = 0; i allocated this variable to know if #the process was actually run by the interpreter

# $flag_esecuzione_matching = 0; i allocated this variable to know if #the process was actually run by the interpreter

: #the index1

#the index1