#!/usr/bin/perl
use strict;
use warnings;

my @users = (
    { name => 'Alice', age => 31 },
    { name => 'Bob',   age => 24 },
    { name => 'Eve',   age => 42 },
);

my @sorted = sort { $a->{age} <=> $b->{age} } @users;

print "$_->{name}: $_->{age}\n" for @sorted;