#!/usr/bin/perl -w

# Deleting hash elements.
$hash{"Name"} = "A";
$hash{"Address"} = "B";
$hash{"City"} = "C";

print ' Print keys before deletion.';
@key_names = keys(%hash);

print "Key names are: @key_names\n\n";

print 'Delete item and print.';
delete $hash{"Address"};

print ' Print keys after .';
@key_names = keys(%hash);

print "Key names now: @key_names\n\n";