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