my $drop = $hlist->DropSite(
		-droptypes    => [qw(Local)],
		-dropcommand  => sub { perform_drop($label, @_) }, # New!
		-entercommand => sub { hover_over_drop($label, @_) }, # New!

##</code><code>##

sub hover_over_drop {
	my ($label_obj, $b_entry, $x_pos) = @_;
	$label_obj->configure(-bg => $b_entry == 1 ? 'gray' : 'lightgray');

    #use Data::Dumper;
	#print Dumper(@_);

	if ($b_entry) {
 	    #print $label_obj . "\n";
		print $label_obj->cget(-text) . "\n";
	}
}

##</code><code>##

Test3 
Test3 
Test2 
Test1 
Test2 
Test3