use lib ('/path/to/2/', '/path/to/1/');

##</code><code>##

use lib "/path/to/1/";
use lib "/path/to/2/";

##</code><code>##

[davidrw@host davidrw]$ perl -le 'use lib qw(/path/to/1/); use lib qw(/path/to/2/); print join " ", @INC[0..1]'
/path/to/2/ /path/to/1/

[davidrw@host davidrw]$ perl -le 'use lib qw(/path/to/1/ /path/to/2/); print join " ", @INC[0..1]'
/path/to/1/ /path/to/2/