<% foreach my $p ( grep { $_->{'status'} eq 'on' } @{$pseudonyms} ) { %>

<% } %>