my ($user, $lib) = qw(/home/john /lib);