while (<INI>)
{
    my ($key, $value) = /^(\w+)=\>(\w+)/;
    push @con, $key, $value;
}