Reading files with two columns in Perl - Day 4

readfile.pl

#Accepts text file with two columns and prints each column

open(input_file, "2columns.txt");

while(<input_file>)
{
	# You will need it if there is whitespace at the end of line
	#chomp;

	#Splits the line by White-Space
	($col1, $col2) = split(' ');
	print "Column 1 = $col1\t Column 2 = $col2\n";
}