foreach (@aap) {
        if( /^1/ ... !/^0/ ){
                print "$_\n"
        }
}

__END__

1mies
2mies
1mies
6mies