if(substr($_,0,1) eq 'A') { ...