${$prev_clicked_button} -> after (2000, [\&hide, ${$prev_clicked_button} ]);
    ${$clicked_button}      -> after (2000, [\&hide, ${$clicked_button}]);

##</code><code>##

sub hide {
    shift -> configure (-image => undef);
}