#!/usr/bin/perluse strict;use warnings;my %hash = ('Key1' => 'Value1', 'Key2' => 'Value2');print "$_ => $hash{$_} \n" foreach keys %hash;foreach (sort values %hash) { print "Value: $_ \n";}