my $thumb;

##</code><code>##

sub choosethumbs {
	@selection = grep(m/.*\/$country\/.*/, @justfiles);

	if ($thumb) {#added four lines of code to destory the old thumb
		$thumb->destroy;
		$thumb = undef;
	} 
	$thumb = $mainframe->Thumbnail(-images => \@selection, -labels =>0, -width => '75', -height => '75', -background => 'black', -command =>\&openwin)->pack;
}