foreach my $tape (@stored_tapes, '') {$remove_list->insert('end',$tape);} $remove_list->activate('end'); #Show the $remove_dialog box to the user my $remove_result = $remove_dialog->Show;