#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;

my $foo;
my $bar;

BEGIN { 
        $foo = '/foo'; 
        $bar = '/bar';
}

my(@dirs) = ($foo, $bar);
use lib @dirs;
push @INC, @dirs;
print Dumper(@dirs), "\n", join("", @INC), "\n";
no lib @dirs;
exit;