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

var %p = ();
%p = ('a'=>1);

if(keys %p > 0){
print 'yes';
}else{
print 'no';
}