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

    while(<>) {
        chop;
        ($Header, $Value) = split(/:/,$_,2);
        $Value =~ s/^\s+//;          # remove trailing whitespace
        $Heading{$Header} = $Value;
    }
    while ( ($Head,$Val) = each %Heading) {
        print "$Head --> $Val\n";
    }