$ perl test.pl
skipped 'ag' (index of 6)
skipped 'an' (index of 13)
skipped 'bq' (index of 42)
skipped 'co' (index of 66)
skipped 'cr' (index of 69)
$VAR1 = [
          'ag',
          'an',
          'bq',
          'co',
          'cr'
        ];