use strict;
use warnings;
my %hash=(key6=>'value6',key2=>'value2',key1=>'value1',key3=>'value3',key4=>'value4',key5=>'value5');
my @arr=sort keys %hash;
print map{$_.'=>'.$hash{$_}."\n"}@arr[0..4];