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