my ($sku, $description, $price, $qty);

foreach my $item (@items) {
	($sku, $description, $price, $qty) = @$item;
	write(PURCHASEORDER);
}