x = FetchSomethingStrange(a)

Function FetchSomethingStrange(p as Integer)
  If p < 5 Then
    FetchSomethingStrange = split("my,array,result", ",")
  Else
    FetchSomethingStrange = "my string result"
  End If
End Function

##</code><code>##

$x = b_split('john,biran,someone',',');
print($x->[0] . $x->[2]);

sub b_split {
    # not fully finished, needs $count and $compare
    my ($string, $delimiter, $count, $compare) = @_;
    $delimiter = quotemeta($delimiter);
    return [ split(/$delimiter/, $string) ];
}

##</code><code>##

$x = FetchSomethingStrange($a);

sub FetchSomethingStrange {
  my($p) = @_;
  my $FetchSomethingStrange; # Autogenerated return value for VB functions
  if ($p < 5) {
    $FetchSomethingStrange = b_split("my,array,result", ",");
  }
  else {
    $FetchSomethingStrange = "my string result"
  }
  return $FetchSomethingStrange; # Autoreturn 
}