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'); }