$file = "/usr/local/rf-north/cgi-bin/chandata.txt";
  
             open (FH, $file) || die "Unable to open file $file\n";
             @data = <FH>;
             close (FH);

foreach $item (@data){

	
             @line = split (/ /, $item); 
	     push(@finalarray, @line);
             	
        }