|
#!/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";
|