Select Code to Download

my (@records1, @records2, @records3)
foreach (@records) {
...
    } else {
        push @records3, $_;
}

foreach (\@records1, \@records2, \@records3) {
    my @recs = @$_;
...
             } @recs;
    #--    
}