selectperlbrew.pl adding print foreach test