#!/usr/bin/perl -w
use strict;
use warnings;

my $feld7 = '3,4,5';
print "ja" if @{[split /,/,$feld7]} > 1;