Select Code to Download

while(<IN>){
  chomp; 
...
    push @{$data[$ix]}, $cols[$ix];  
  }  
}

ydata => [ @{$data[$y]} ],