Select Code to Download

$info{$name}{$fruit}{path} = $p;

$path=$info{$name}{$fruit}{path};

$name=$info{name}{$fruit}{$path};

$ cat test_input.txt
Albert apple /path/to/somewhere/a
...
Dex jackfruit /path/to/somewhere/d
# next line is blank

$ cat -vet test_input.txt
Albert apple /path/to/somewhere/a$
...
Dex jackfruit /path/to/somewhere/d$
# next line is blank$
$

#!/usr/bin/env perl

...

    return $info;
}

Data extracted:
{
...
  "/path/to/somewhere/d",
  "/path/to/somewhere/a",
]