#!/usr/bin/perl -w use strict; my %hash; print ( %hash )?"yea":"nay","\n";