sub fool
  {
  my @vals;
  my $n;
  my $i;
  while (@_)
    {
    @vals = split /(\n)/, (shift); # Error happens here
    $n = @vals;	
    for ($i = 0; $i < $n; $i++)
      {
      print "The value is: $vals[$i] \n"; # Or similar action
      }
    }
  }