It seems uncertain that a solution in Perl would necessarily assist homework in random-other-language. But if it really were Perl, the first thing that would pop into my mind would be grep, e.g.:

my @matching = grep property( $_ ), @sg;
[download]