-command => sub { resort (\$sortflag, \@item) ; }

##</code><code>##

$tree -> configure(heading => "#1", -command => sub { resort (\$sortflag, \@item) ; }
 );