my @array=qw/foo bar/;
$array[3] = "baz";

foo1( @array );  # $array[2] is undefined

##</code><code>##

   for my $param (grep {defined} @_) {
      for my $val ( split /\n/, $param ) {
         print "The value is: $val\n";  # or whatever you want to do
      }
   }