#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %emp = (
    'it' =>  {
      'Sam 1' => 2800000,
      'Richi 1' => 3500000,
      'Dannel 1' => 1200000,
    },
    'it_support' => {
      'Sam 2' => 1450000,
      'Richi 2' => 1500000,
      'Dannel 2' => 2100000,
    },
    'development' => {
      'Sam 3' => 2600000,
      'Richi 3' => 2300000,
      'Dannel 3' => 1800000,
    },
);

#print Dumper(%student);
foreach my $key (keys %emp){
    #print $key."\n";
  print "Department = $key : \n";
  foreach my $key_name (sort {$emp{$key}{$a}<=>$emp{$key}{$b}} keys %{$emp{$key}}){
    my $len = $emp{$key}->{$key_name};
      print "\t Name : ".$key_name." == ".$emp{$key}->{$key_name}."\n";
  }
}

3z6s796cm

3z6s796cm