[PASSWORDS]
GUY    ddd
GIRL   dfd33
BOY    df341

##</code><code>##

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

@listOfPass = "$pass"; # <------ not working :((

                }#end while loop
close (INPUT);