Select Code to Download

use strict;
...
    my ($item) = @_;
    $chosen_item = $item;
}

    $expensemb->command(-label => $item, -command => sub { addtext($it
+em) });

    $expensemb->command(-label => $item, -command => sub { $chosen_ite
+m = $item });