while(@array)
  {
  $file=pop @array;
  $top->Button(-text => "Click Me",-command => sub{ system "start c:/WINNT/system32/notepad.exe $file" })->pack();
  $x=$x+10;
  }
MainLoop;