#!/usr/bin/perl -w

use strict;
use warnings;

my $element = 0;
my @array   = qw(one \n two \n three four \n five six);

for (0 .. $#array) {
    if ($array[$element] =~ /\\n/) {
        print 'found newline in element ' . $element . "\n";
    } 
    $element++;
}