foreach my $line( @Array ){
	$Ext	    = $1 if $line =~ /EXTENSIONNUM=(\d+)/;		# Extract the Extension-Number
	$ExtName   = $1 if $line =~ /NAME=(\w+)/;
	$allocDate = $1 if $line =~ /DATEALLOCATED=(\d+-\d+-\d+)/;
	$AccountID = $1 if $line =~ /ACCOUNTID=(\d+)/;
	push(@Array3,$ExtName," ",$Ext," ",$AccountID," ",$allocDate,"\n");
	push(@Array4,$Ext,"\n");
}