foreach  (@partnames) 
	{
		$j++;
	}

for ($i=0; $i < $j; $i++) 
	{
		$xv = $leftframe->Frame()->pack;
		$v = $xv->Label(-text => "$partnames[$i]", -justify => 'right')->pack(-side => 'right');
		$w = $rightframe->Entry(-width => '5', -background => 'White')->pack;
		$w -> insert('end', $quantity[$i]);
	}