selectperlbrew.pl test with foreach