X:\bla\script.pl Denemarken.csv xx.csv
syntax error at X:\bla\script.pl line 55, near "$elements["
syntax error at X:\bla\script.pl line 82, near "}"
Execution of X:\bla\script.pl aborted due to compilation errors.

##</code><code>##

if ($#ARGV != 1) {print "usage: input-file output-file \n";exit;} 

$inputfile=$ARGV[0];
$outputfile=$ARGV[1];

open(INFILE,$inputfile) || die "Bestand niet gevonden :$!\n";
open(OUTFILE,">$outputfile") || die "Bestand niet gevonden :$!\n";

$i = 0;

@infile=<INFILE>;

foreach ( @infile )
  	  {
	  $infile[$i] =~ s/"//g;				
	  
	  @elements = split(/;/,$infile[$i]);		

# Number clean
	   	  
	if (!($elements[20] =~ /^\+45\s{1}\d{4}\s{1}\d{4}$/))
	    {
	  	$elements[20] =~ s/\D//g;			
		}	  

	$elements[20] =~ s/(^00|^0)//i;				


	if ($elements[19] =~ m/45/g) 			
  	    {
         	$elements[20] =~ s/^/\+45 /;
		$elements[19] =~ s/45/xxxx/;
		}

	$elements[20] =~ s/(^450|^45)/\+45 /;		


	if ($elements[20] =~ m/^[1-9]/i) 		
  	    {
	       	$elements[20] =~ s/^/\+45 /;
		}

	if ($elements[20] =~ /^\+45\s{1}\d{9,}$/) {		
    		$elements[25] = 'TE LANG NR';
		}
	
	if ($elements[20] =~ /^\+45\s{1}\d{1,7}$/) {	
   		$elements[25] = 'TE KORT NR';
    		}
	
	if (!($elements[20])) {
		$elements[25] = 'GEEN NR BEKEND';	
		}		

	while (my $elements[20] = <INFILE>) {
		substr $elements, 7, 0, ' ';
		}

# Zipcode clean
	  
	$elements[15] =~ s/\D//g; 			

	if (!($elements[15])) {				
 		# do nothing
	} else {
 		$elements[15] =~ s/^/DK-/;
		}
	
# Netnumber clean
	
	$elements[19] =~ s/\<not in use\>/xxxx/i;	
	
	$elements[19] =~ s/45/xxxx/;			

	if (!($elements[19])) {				
		$elements[19] = 'xxxx';
		}
	
	@elements = join(";",@elements);		
	print OUTFILE "@elements";
	$i = $i+1;
	}

close(INFILE);
close(OUTFILE);