@datan = ("1","2","3","4","5","6");
print map{($_ eq "3")?("$_\n"):("$_ ")} @datan;

__END__
1 2 3
4 5 6