#!/usr/bin/perl

use strict;

my %hash = ( 'a' => '1', 'b' => '2', 'c' => '3',
             'f' => '6', 'e' => '5', 'd' => '4' );
my $count = 0;

foreach my $i ( sort keys %hash ) {
    print "$i ==> $hash{$i}\n" if ($count <= 4);
    $count++;
}