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

my (%sun, %mon, %tue, %wed, %thu, %fri, %sat);

my %jobs=(
		"server1",	456,
		"server2",	5000,
		"server3",	5,
		"server4",	741,
		"server5",	55,
		"server6",	840,
		"server7",	230,
		"server8",	1200,
		"server9", 	981,
		"server10",	3200
		);

sort_by { $jobs{$_} } keys %jobszel