my $hlist = $mw->Scrolled( "HList", -header => 1, -columns => 2, )->pack(); my $hlist_ref = \$hlist; $hlist_ref->delete('all');