sub bigfile_colstolines {
    my $infile = shift;
    my $outfile = shift;
    my $infilehandle = "<$infile";    	    # read-only
    open (INFILE, $infilehandle) or die ("File error.\a\n");
    my $outfilehandle = ">$outfile";       # write only
    open (OUTFILE, $outfilehandle) or die ("Output failure.\a\n");
    my $line = <INFILE>;
    my @testarray = split (/$delimiter/, $line);
    close (INFILE);
    open (INFILE, $infilehandle) or die ("File error.\a\n");

    for (my $counter=0; $counter <= $#testarray; $counter++){
	my @columnarray = undef();
	while (defined ($line = <INFILE>)){
	    chomp ($line);
	    my @linearray = split (/$delimiter/, $line);
	    push (@columnarray, $linearray [$counter]);
	}
	shift (@columnarray);	  	    # removes unwanted characters
	my $newline = join $delimiter, (@columnarray);
	print OUTFILE ($newline, "\n");
	#rewind the file
	seek(INFILE,0,0);
    }
    close(INFILE);
    close(OUTFILE);
}