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

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