my $entry = 1;
my $item;
while($entry)
{
   $item = "foobar";
   print $item;
   $entry--;
}