my %spl = ('GFG', '1', 'GEEKS', '2', 'PROGEEK', '3');

foreach my $key (keys %spl)  
{ 
    print "$key:$spl{$key}\n"; 
}

##</code><code>##

GEEKS:2
GFG:1
PROGEEK:3

##</code><code>##

PROGEEK:3
GEEKS:2
GFG:1

##</code><code>##

GFG:1
GEEKS:2
PROGEEK:3