my $section;
my $vals;
open (READIT, "./filename.cfg") || die "Cant read filename.cfg. Reason: $!";

while (<READIT>) {
if ($_ =~ /^#/ || $_ =~ /^\s+/) { next; }

if ($_ =~ /\[(.*)\]/) {
$section = $1;
} else {
my ($col,$value) = split /=/, $_;
$vals->{$section}->{$col} = $value;
}
}
close (READIT);

$vals->{'MACHINE NAME'}->{"A"}