@x= split /,/;        #splits $_

@x= split /,/,$nod;      #splits $nod