IMHO not as inelegant as use vars '@children'; looks :)

...or you could just pass in @children as an extra argument

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"