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 }
}