my @selector = ("field1", "field2", "field3", "field4");
open IN, $FILE;

my @RefHash;
while (<IN>) {
  chomp;
  my @inLine = split;

  my %content;
  @content{@selector} = @inLine;

  push @RefHash, \%content;
}