programming-examples/perl/Hash/Loop through an associative array.pl

    while(<>) {
        chop;
        ($Header, $Value) = split(/:/,$_,2);
        $Value =~ s/^\s+//;          # remove trailing whitespace
        $Heading{$Header} = $Value;
    }

    foreach $Head (sort keys %Heading) {
        print "$Head --> $Heading{$Head}\n";
    }