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