$vn = 0;
...
      $vn++;
      $hash{$vn}=$parent->Button(-text=>"$var[0]");
      $hash{$vn}->configure(-state => 'disabled',-relief=>'ridge');