my %ini; @file = grep m/^[^#]/, @file; #skips comments for (@file){ chomp; #mpolo is right! my ($key, $val) = split /=/,2; #splits the line $ini{ $key } = $val if $key; #if we have a key, store }