#!/usr/bin/perl -w
use strict;
#use Tie::SortedHash;
use LR;

my @months = qw(January February March April May June July August September October November December);

my (%data, %order);

@data{@months} = (33, 29, 15, 48, 23, 87, 98, 44, 12, 19, 76, 23);
@order{@months} = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);

my $sort = sub {
    my $hash = shift;    
    sort {$order{$b} <=> $order{$a}} keys %$hash;
};