$x="Room_reserve.csv";
$in = "D:\\package properties\\${x}.csv";
$in = "D:\\package properties\\${x}.csv";

$out = "D:\\package properties\\output\\${x}_output.csv";

open($fh, '<', $in) or die "Could not open file '$file' $!";
@data = <$fh>;
close($fh);

%counts;
@columns;
$first = 1;

#counter
foreach $dat (@data) {
  chomp($dat);

@rows = split(',',$dat);

  if ($first == 1) {
  $first = 0;
  next;
}
  else {
  $count = 1;

  foreach $i (0..$#rows) { 

      if ( exists($columns[$i]{$rows[$i]}) ) {
          $columns[$i]{$rows[$i]}++;
      }
      else {
          $columns[$i]{$rows[$i]} = int($count);
      }

  }


   }
 }

#output
$first = 1;
open($fh, '>', $out) or die "Could not open file '$file' $!";
foreach $dat (@data) {
chomp($dat);
@rows = split(',',$dat);


foreach $i (0..$#rows) {

  if ($i > 6) {
#for modifying name           
      if ( $first == 1 ) {
          $line = join( ",", "Rank_$rows[$i]", "Percent_$rows[$i]", "Count_$rows[$i]", $rows[$i]);
          print $fh "$line,";
          if ( $i == $#rows ) {
              $first = 0;
          }
      }
      else {
          @dat_val = reverse sort { $a <=> $b } values %{$columns[$i]};
          %ranks = {};
          $rank_cnt = 0;
          foreach $val (@dat_val) {
              if ( ! exists($ranks{$val}) ) {
                  $rank_cnt++;
              }
              $ranks{$val} = $rank_cnt;
          }

          $rank = $ranks{$columns[$i]{$rows[$i]}};
          $cnt = $columns[$i]{$rows[$i]};
          $ave = ($cnt / 14000000) * 100;

          $line = join( ",", $rank, $ave, $cnt, $rows[$i]);
          print $fh "$line,";
      }
  }
  else {

      print $fh "$rows[$i],";

  } 
}
print $fh "\n";

}

close($fh);