foreach $x (@Array) { chomp; print "$x\;"; }