You might be interested in Quote Like Operators. Here's your code again but more intelligible because of it being of proper indentation and within the appropriate tags <code>Here is the place you put your code in </code>:

use strict;
my $count=0;
my @cp_op = qw(111 222 333);
foreach my $line (@cp_op)  {  #splits each line of the array

print "$line\n"; $count ++;
      }
print "$count\n";
[download]