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

my @aoh =(
 {
    3 => 15,
    4 => 8,
    5 => 9,
 },
 {
    3 => 11,
    4 => 25,
    5 => 6,
 },
 ...
);

for my $h (@aoh) {
    my @keys_sorted_by_values = sort { $h->{$a} <=> $h->{$b} } keys %$h;
    print "{";
    print "  $_ => $h->{$_}," for @keys_sorted_by_values;
    print "},";
}

__END__
{
  4 => 8,
  5 => 9,
  3 => 15,
},
{
  5 => 6,
  3 => 11,
  4 => 25,
},
...