Here's a golfed version of the previous solutions.

#!/usr/bin/perl

use strict;
use warnings;

my %hash;
print %hash ? 'defined' : 'undefined';
[download]

Update: Changed keys %hash to plain old %hash, per swampyankee's post. Duh me!