#!/usr/bin/env perl use strict; use warnings; my $age={}; warn 'hello' if (%$age);