#!/usr/bin/perl

my @results = qw/item item item item item/;
my $output = undef;
for (@results) {
	print "the items are: @results\n";
	print "text is: $output\n";
	$text = shift @results;
}