Help for this page
if (@fields[2] ne G || A || C || G)
if ( $fields[0] ne 'G' && $fields[0] ne 'A' && $fields[0] ne 'C' & +& $fields[0] ne 'G' )