Select Code to Download

my @As = grep { /A/ } @bigarray;
my @Bs = grep { /B/ } @bigarray;
my @Cs = grep { /C/ } @bigarray;

my (@As, @Bs, @Cs);
for my $item (@bigarray) {
    if    ($item =~ /A/) { push @As, $item }
    elsif ($item =~ /B/) { push @Bs, $item }
    elsif ($item =~ /C/) { push @Cs, $item }
}