Select Code to Download

   while(my $colref = $csv->getline ($csv_fh))
   {
...
      
      $output_hash{shift @{$colref}} = $colref;
   }

#ksjlasjda

abc xyz,10
xyz pqr,2
pqr stq,0.1