Select Code to Download

#! /usr/bin/perl

...

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

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