$[ = 1;	# set array base to 1
$, = ' ';	# set output field separator
$\ = "\n";	# set output record separator

##</code><code>##

...
while (<FILE>) {
     chomp;	# strip record separator
     @in_data = split(/ +/, $_);
     ...