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