# Columns to be written to the output file and Plotted.
$c1 = 4;	# X-Axis
$c2 = 16;	# Y-Axis
$c3 = 11;	# Z-Axis

# Single file to be Opened
$file1 = '../filename.asc';
open(Read, $file1);
@Read = <Read>;			# Read file into an array

# Visit each text line in turn and write data in specific column to array
foreach $part (@Read) {	
	$part =~ s/ /:/g;
	@Row = split(/:+/, $part);
	push(@Write, "$Row[$c1]\t");
	push(@Write, "$Row[$c2]\t");
	push(@Write, "$Row[$c3]\n");
}

# Creates the plotted data file
writeFile_ref ("PlottedData.txt", \@Write);
close(Read);


# Opens GNUPlot and Creates Plots
open(G, "|/usr/local/bin/gnuplot") or die "/usr/local/bin/gnuplot"; 
print G <<ENDOFHERE
set term x11
splot 'PlottedData.txt'
ENDOFHERE