#!/usr/bin/perl

use strict;
use warnings;

my %item1 = (
        "item"          => 1,
        "name"          => "smith, john",
        "age"           => 25,
        "height"        => 1.80
        );

my %item2 = (
        "item"          => 2,
        "name"          => "jones, bob",
        "age"           => 26,
        "height"        => 1.70
        );

my %item3 = (
        "item"          => 3,
        "name"          => "arrang, eliee",
        "age"           => 27,
        "height"        => 1.75
        );

my %hash;
$hash{1} = { %item1 };
$hash{2} = { %item2 };
$hash{3} = { %item3 };

my $orderby = "name";

foreach my $id (sort { $hash{$b}{$orderby} <=> $hash{$a}{$orderby} } keys %hash) {
  print "$hash{$id}{'item'} - $hash{$id}{$orderby}\n";
} # end-foreach

exit;