#!/usr/bin/perl

use strict;
use warnings;

my @lines = (
   "apple",
   "apple,banana,cherry",
   "banana,cherry",
   "apple,cherry",
   "banana",
   "cherry",
            );
            
foreach my $line (@lines){
    my $item = 
      (split(/\,/,$line))[int(rand(scalar(@{[split(/\,/,$line)]})))];
    print "$item\n";
}

exit(0);