while (my ($option, $val_ref) = each %options) {
    print "$option -- ", join (',',@$val_ref), "\n";
}