foreach $key ( sort { $a <=> $b  }  keys %hash){
            $star = ($hash{$key}*15)/$max ;
            print " Kesy and values $key\t=>\t $hash{$key}:\t",  "*"x$star, "\n ";

    }