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

my $datafile1=<<END;
1 has 0.334
2 has 0.986
3 has 0.787
END

my $datafile2=<<END;
1 has 0.894
2 has 0.586
3 has 0.187
END

my @data;

foreach my $fileRef (\$datafile1, \$datafile2)
{
   open FILE, '<', $fileRef or die "$!";
   
   while (<FILE>)
   {
      my ($row, $col3) = (split)[0,2];
      push @{$data[--$row]}, $col3;
   }
}

my $row_num=1;
foreach my $row (@data)
{
   print $row_num++, " has ", "@$row\n";
}
__END__
1 has 0.334 0.894
2 has 0.986 0.586
3 has 0.787 0.187