for ($i = 0 ; $i <= $#param ; $i++ )
print $param[$i], "\n";
$message = join ( $message, $param[$i]);
print $message, "\n";
I am novice in perl. Here is my problem. the print line prints every part of the array
$message prints the last string in the array!
Why! How to fix it! please. I want solution before I get to work tomorrow!