Consider this example...

#!/usr/bin/perl

use strict;

my %prop = ( "abc" => "100", "def" => "22" );
my $prop_ref = \%prop;

print map { "$_ has " . length($$prop_ref{$_})
  . " characters.\n" } sort keys %{$prop_ref};
[download]