#!/usr/bin/perl -w use strict; my @skuid=("11021","11022","11023"); my @name=("mt. eden","dom perignon","veuve cliquot"); my @price=("45.99","135.99","79.99"); print "Content-type:text/html\n\n"; print "Test script\n"; foreach my $skuid (@skuid) { print "SKUID:$skuid\n"; } foreach my $name (@name) { print "NAME:$name\n"; } foreach my $price (@price){ print "PRICE:$price\n"; } print "";