#!/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";