my @datan = qw(1 2 3 4 5 6);

for my $meck(@datan) {
   print "$meck ";
   print "\n" if $meck eq 3;
}
print "\n";