#!/usr/local/bin/perl
use strict;
use warnings;

my %p = ();
%p = ('a'=>1, 'b'=>0);

if(keys %p > 0){
print 'yes';
}else{
print 'no';
}
print "\n";
print join(',', keys %p);