#!/usr/local/bin/perl
use strict;
use warnings;

my @listOfPass;
                                                                                                                      
open(INPUT , "<$input_file" ) or die "couldn't open ($input_file) :$!";
                                                                                                                      
my ($section,%passwds);
while(<CONFILE>) {
    chomp;
    if (/^\[(.*?)\]$/) { $section = $1; next; }
    if ($section eq 'PASSWORDS') {
        my ($mkt,$pass) = split;
        $passwds{$mkt} = $pass;
        $passwds{$pass} = $mkt;
        push @listOfPass, $pass;
    }
}#end while loop
close (INPUT);