Perl. Работа с массивами.

[simon171078]

я написал прогамму:(она должна выводить :localhost+passwords) ,проблема с выводом
#!/usr/bin/perl -w
my$path=<STDIN>;
print "\n";


use LWP::Simple;
$INPUT_FILE = "bugs.txt";

open(INPUT_FILE);

@array = <INPUT_FILE>;

close(INPUT_FILE);

foreach(@array){$i++; }

print"starting concerting"."\n";
for($j=0;$j<$i;$j++)
{

$proverka="$path+"."$array[j]";
print $proverka;


вывод:
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\admin>cd\

C:\>perl file1.pl
localhost

starting concerting
localhost
+passwords
C:\>

[ivank]

simon171078
поможет волшебная функция trim

upd. Упс. стандартной trim нет. Но зато есть регулярные выражения.
sub trim()
{
my $s = shift;
$s =~ s/^\s+|\s+$//g;
return $s;
}

[Prisoner]

simon171078, прошу не плодить тем-дублей.