my @strings = qw(exception:texexception:  exception:mex ...

*** produces:

$VAR1 = [
          'exception:texexception:',
          'exception:mex',
          'exception:mex',
          'exception:mex',
          'exception:mex'
        ];
$VAR1 = [
          'exception:texexception:'
        ];
$VAR1 = [
          'exception:mex',
          'exception:mex',
          'exception:mex',
          'exception:mex'
        ];
$VAR1 = [
          'exception:texexception:'
        ];