MM_STD_gate              -61.771653             -45.472441      mils   
                       -1569.000000           -1155.000000       microns
RFN_a                    -91.102362              68.307087      mils   
                       -2314.000000            1735.000000       microns
RFN_b                    -62.165354              68.307087      mils   
                       -1579.000000            1735.000000      microns
RFN_c                    -51.417322              68.307087      mils   
                       -1306.000000            1735.000000       microns

##</code><code>##

#!/usr/bin/perl
#use strict;
use warnings;
use Data::Dumper;


my @records;
my @col;
my ($probe, $x_coord, $y_coord, $mils, $micron);
my $infile= 'coord.txt';

open (DATA,'<',$infile) or die "could not open the $infile: $!";

while (<DATA>) {
    chomp;
    my @col = split " ", $_;
    push @records, \@col;
}
#print Dumper(\@col, @records);

for (\@col){
	print join("\t",$col{$records[0]}, $col{$records[1]}, $col{$records[2]}, $col{$records[3]});
} #this for loop doesn't work

##</code><code>##

 __DATA__
MM_STD_gate -61.771653             -45.472441      mils   
  -1569.000000           -1155.000000       microns
RFN_a                    -91.102362              68.307087      mils   
                    -2314.000000            1735.000000       microns
RFN_b                    -62.165354              68.307087      mils   
-1579.000000            1735.000000      microns
RFN_c                    -51.417322              68.307087      mils   
                              -1306.000000            1735.000000       microns