use constant {
  X => 0,
  Y => 1,
};
my %DATA;
while (<>) {
  my ($obs, $det, $x, $y) = split ' ';
  push(@{$DATA{$obs}{$det}}, [ $x, $y ]);
}

print "$DATA{21}{'DET-2'}[0][X]\n";