#!/usr/bin/perl

use strict;

my %test = ();
$test{11} = "reagen";
$test{26} = "daniel";
$test{13} = "joe";

foreach my $id (sort keys %test) {

        print "$id :: $test{$id}\n";

        # Delete joe from the hash
        delete $test{13} if ($test{13});

} # end-foreach

exit;