#!/usr/bin/perl
use strict;
use warnings;

my %hash = ( 'ONE' => 'one', 'TWO' => 'two' , 'THREE' => 'three' , 4 => 'four' , 5 => 'Five' );
my $result = %hash;
print "$result\n";


Output :-
4/8