while (<RESULT>){
    @my_data=<RESULT>;
    print "@my_data\n"
}

##</code><code>##

@my_data = <RESULT>;

##</code><code>##

<RESULT>; # reads a line from RESULT
@my_data = <RESULT>; # reads rest into @my_data

##</code><code>##

while (<DATA>) {
  chomp;
  my @cells = split(' ', $_);
  for (@cells) { s/^"(.*)"$/$1/ }
  ...
}

##</code><code>##

File A:
ALABAMA                         AL
ALASKA                          AK
ARIZONA                         AZ
ARKANSAS                        AR
CALIFORNIA                      CA
COLORADO                        CO
...

File B:
Alabama 	Montgomery
Alaska          Juneau
Arizona 	Phoenix
Arkansas 	Little Rock
California 	Sacramento
Colorado 	Denver
Connecticut 	Hartford
Delaware 	Dover
Florida 	Tallahassee
Georgia 	Atlanta
...

##</code><code>##

my %data;
open(A, '<', 'fileA');
while (<A>) {
  chomp;
  my @cells = split(' ', $_);
  $data{lc($cells[0])} = [ @cells ];
}
close(A);

##</code><code>##

open(B, '<', 'fileB');
while (<B>) {
  chomp;
  my @cells = split(' ', $_);
  # $cells[0] is the state name, $cells[1] is the capital
  my $data_from_a = $data{lc($cells[0]} || [];
  print join("\t", @cells, @$data_from_a), "\n";
}

##</code><code>##

Alabama Montgomery      ALABAMA AL
Alaska  Juneau  ALASKA  AK
Arizona Phoenix ARIZONA AZ
Arkansas        Little  Rock    ARKANSAS        AR
California      Sacramento      CALIFORNIA      CA
Colorado        Denver  COLORADO        CO
...