foreach(@b){
    print
} if $a;