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

use Data::Dumper;

my %h;

print $h{key} ? $h{key} : "nokey";

print "\n", Dumper (\%h);