# size and sum access time for ALLOWED sites 
%hash1 = ( '192.168.0.13' => 555, '192.168.0.14' => 666, '192.168.0.15'=> 888);  
%hash2 = ( '192.168.0.13' => 999, '192.168.0.14' => 444, '192.168.0.15'=> 777);   
 
# size and sum of access time for DENIED sites; 
%Hash1 = ( '192.168.0.13' => 22, '192.168.0.14' => 33, '192.168.0.15'=> 11);  
%Hash2 = ( '192.168.0.13' => 99, '192.168.0.14' =>88, '192.168.0.15'=> 77);  
 
# sort output by size (hash1, Hash1) or sort by sum time acces (hash2, Hash2) 
$sortBy = "hash1";  
  
print "raport for ALLOWED sites\n"; 
func($sortBy, \%hash1, \%hash2); 
print "raport for DENIED sites\n"; 
func($sortBy, \%Hash1, \%Hash2); 
 
 
sub func{ 
	my ($z, $h1, $h2) = @_;  
	#print Dumper $h1;  
	 foreach $key (sort {$$h1{$b} <=> $$h1{$a}} keys %$h1) {  
		print $key.": ".$$h1{$key};  
		print " MB, ".$$h2{$key}." min\n"; 
	 }  
}

raport for ALLOWED sites 
192.168.0.15: 888 MB, 777 min 
192.168.0.14: 666 MB, 444 min 
192.168.0.13: 555 MB, 999 min 
raport for DENIED sites 
192.168.0.14: 33 MB, 88 min 
192.168.0.13: 22 MB, 99 min 
192.168.0.15: 11 MB, 77 min

raport for ALLOWED sites 
192.168.0.13: 555 MB, 999 min 
192.168.0.15: 888 MB, 777 min 
192.168.0.14: 666 MB, 444 min 
raport for DENIED sites 
192.168.0.13: 22 MB, 99 min 
192.168.0.14: 33 MB, 88 min 
192.168.0.15: 11 MB, 77 min

my $a = { 
    car => 'porsche', 
    watch => 'seiko' 
}; 
 
my $b = { 
    job => 'perl', 
    name => 'zach' 
}; 
 
my %hash = ( 
    'a' => $a, 
    'b' => $b 
); 
 
my $user_input = 'a'; 
say $hash{'a'}->{car};

#!/usr/bin/perl 
 
use strict; 
 
my %hash = ( '192.168.0.13' => 555, 
             '192.168.0.14' => 888, 
             '192.168.0.15' => 666, 
); 
 
print "Enter sort by keys or values? "; 
chomp( my $answer = <STDIN> ); 
print "\n"; 
 
print "$_ - $hash{$_}\n" 
  for ( $answer eq 'keys' 
          ? sort keys %hash 
          : sort { $hash{$a} <=> $hash{$b} } keys %hash );

print "Enter sort by size or time? ";