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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $result = { 1 => 2, 3 => 4 };

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

print "status: $status\n";


##</code><code>##

$ perl benco.pl
Global symbol "$status" requires explicit package name at benco.pl line 15.
Execution of benco.pl aborted due to compilation errors.


##</code><code>##

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