my %data;
open my $FH2, '<', '/tmp/fileread' or
  die "unable to open input file: $!";
while(<$FH2>) {
  my @cols = split(/,/);
  $data{join(':',@cols[1,2])} = $cols[0];
}
close($FH2);