#!/usr/bin/perl

use strict; 
use warnings;
my $file = "/path/to/config/config.txt";
my %info = parse($file);
my %fruits;
foreach $fruit (@fruits) {
    #get $address for each line in input file
     $path=$info{$name}{$fruit}{path};
    #get $name for each line in input file
     $name=$info{name}{$fruit}{$path};

}

sub parse {
    my $file = shift;
    my %info;
    return if !(-e $file);
    open(my $fh, "<", $file) or die "Can't open < $file: $!";
    my $msg = "-I-: Reading from config file: $file\n";
    print $msg; #print LOG $msg;
    my %seen;
    while (<$fh>) {
        if (($_=~/^#/)||($_=~/^\s+$/)) {next;}
        my @fields = split(" ", $_);
        my ($name, $fruit, $p) = @fields;
        if (!$seen{$fruit}) {
                push (@fruits,$fruit);
                $seen{$fruit}=1;
            } 
        $info{$name}{$fruit}{path} = $p;

    }
    close $fh;
    return %info;
}