sub yhenda{
  $tekst="";
  for(@_){$tekst.="$_ ja ";}
  $tekst=~ s/(.*)ja.$/ $1/;
  return $tekst;
}

print yhenda("kala", "Kartul", "Kapsas")."\n";