use Tk::Clipboard;
  my $mw = MainWindow->new(); 

  ... ## after having what you want to copy...

   $mw->clipboardClear;                   ## prepare the clipboard (new entry)
   $mw->clipboardAppend($selected_list);  ## copy it (see perldoc)