#! /usr/bin/perl

%hash= ( 1 => 102, 2 => 103, 4 => 102, 5 => 104, 6 => 103, 8 => 101);
@array = sort{$hash{$a} <=> $hash{$b} || $a <=> $b} keys(%hash);

print $_,"\n" for(@array);