my @selected;
foreach $record (...) {
    if (...) {
        push @selected, $record;
    }
}
[download]