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