$I
open(MY,"pain");
while(<IWEEP>);
    foreach $of_us (@whos_mentally_ill){
        print "Help me...";
    }
}
#deep depression has just passed :-)