use warnings;
use strict;

my %test = (11 => "reagen", 26 => "daniel", 13 => "joe");

delete $test{13};
print "$_ :: $test{$_}\n" for sort keys %test;