$line1="a line\n"; chomp($line1); print "#$line1#\n";
#a line#
chomp($line2="line2\n"); print "#$line2#\n";
#line2#
@list=("line A\n", "line B\n"); chomp(@list); print "#", $list[1], "#", "\n";
#line B#