#!/usr/bin/perl
##
## foo -- Program for doing foo
##
## $Id$
##
use strict;

##
## Required modules
##
use POE qw( Session Wheel::Run );
use LWP::UserAgent ();

##
## Explain what we're looping over, yadda yadda yadda
## blah blah yackety schmakety
##
foreach( @something ) {
  push @somethingelse, $fooble; # push fooble on other list
}