print "before: $_\n" for @instances;
screwed "$_"         for @instances;
print "after: $_\n"  for @instances;