for ( @array ) {
    my $foo = $_;
    chomp $foo;
    print "$foo;";
}
print "\n";