Store the value and it's associated line name together in the same variable as a hash.

while(<DATA>) {
  ($name,@values) = split /,/;
  push @list, {name=>$name, value=>$_ } for @values
}
[download]

Perform your processing on $list[n]->{value}.