#!/usr/bin/env perl

use strict;
use warnings;

my $age={};

warn 'hello' if (%$age);