for(my $i=0;$i<scalar @unique;$i++) {
  $mcut=scalar @unique;
  $m=$mcut-$i;
  %num=("$unique[$i]"=>"$m");
  while (($key1, $val1) = each(%num)) {
    push(@key,$key1);
    push(@val,$val1);
  }
}