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

use Test::More tests => 1;

my %records = (
    123 => {
        Meta => {
            Name => 'Bob'
        }
    },
    124 => {
        Meta => {
            Name => 'Alice'
        }
    },
    125 => {
        Meta => {
            Name => 'Eve'
        }
    }
);

my @sortedkeys = sort { $records{$a}{Meta}{Name} cmp $records{$b}{Meta}{Name} } keys %records;

is_deeply \@sortedkeys, [124, 123, 125], 'Sorted by name';