my $status;
my @values = values (%$result);
foreach my $key (@values) {
print "key:$key\n";
$status = $key;
}

##</code><code>##

my $status = ( keys %$results )[ -1 ];

##</code><code>##

my @values = values (%$result);
foreach my $key (@values) {
    print "key:$key\n";
    $status = $key;
}

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)