#!/usr/bin/perl

use strict;
use warnings;

package my_package;

sub new {
        my $class = shift;
        my $obj = {
                HASH => {
                        "key1" => 35,
                        "key2" => 28,
                        "key3" => 74,                   
                },
        };
        
        return bless $obj, $class;
}

sub outer_subroutine {
        my $obj = shift;
        
        sub sort_by_value {
                $obj->{"HASH"}{$b} <=> $obj->{"HASH"}{$a};
        }

        foreach my $key ( sort sort_by_value(keys $obj->{"HASH"} ) ) {
                print $key, "\n";
        }
}

package main;

my $object = my_package->new;
$object->outer_subroutine;