#Create a scrolled listbox
$list->configure(-height=>12,
                 -width =>12);

	
#Populate the scrolled listbox with tape numbers
$list->insert('end',$_) for @tapes;	    
	
$list->pack();	          		 	       			            			       
$list->packForget();

$list->configure(-height=>12,
                 -width =>100);
$list->pack();