use strict; use warnings;
use Config::Tiny::Ordered;

my $file = '1179628.txt';

my $config = Config::Tiny::Ordered->read( $file );

foreach my $section_name( sort keys %{ $config } ) {
    print "SECTION: $section_name\n";

    foreach my $item( @{ $config->{ $section_name } } ) {
        printf ( "  %7s : %s \n", $item->{'key'}, $item->{'value'} );
    }

    print "\n";
}

__END__