<outcast>

use Another::Cookie_Cutter::Reality::Show;

 $show = Another::Cookie_Cutter::Reality::Show->$new('American_Idol');

foreach(@week)
{
      $show->$#contestants = $show->$#contestants - 1;
      for($x = 0; $x <= $show->$#contestants; $x++)
     {
        if($_ eq "Ruben")
        {
           $holder = $_;
           $_ = $show->$contestants[0];
           $show->$contestants[0] = $holder;
           last;
        }

)
$show->$comic_relif = 'Simon';
$show->$hot_chic = 'Paula';
$show->$big_attraction = 'Karaoke Style Singing';
$result = &end_show;
print result."\n";



sub end_show
{
      return $show->end_result('more crap');
}
[download]

<paula>You did really well, I liked your poem, it flowed really well.</paula>

<randy>look dawg, you wrote a good poem, you missed an ending curly brace on your for loop, but you were probably nervous, overall, I thought it was ok...ok.</randy>

<simon>I disagree...your perl performance here is sub-standard, if you coded this way at the tryouts, you wouldn't even have made it past the syntax checker.</simon>

:-)

--
hiseldl
What time is it? It's Camel Time!

you left out that Simon would surely have pointed out that this performance didn't  use strict;

use Another::Cookie_Cutter::Reality::Show;

I guess that really says it all. I'm so happy to not know what inspired this poem (although I can guess). As a matter of fact, I have never felt so transported by poetry before.

--
Allolex

...goes to google "American Idol"...