#! /usr/bin/perl

use strict;use warnings;

my %data;

open(IN,"data.file");

while(<IN>){ chomp;

      my @line=split(/\t/,$_);

      $data{$line[10]}{$line[3]}=$line[2];


foreach my {$line[10]}(keys %data){

print"$data{$line[10]}\t$data{line[3]}\t$data{$line[2]}\n"
}}

##</code><code>##

Missing $ on loop variable at mouse5.pl line 16.