Help for this page
use FindBin; use lib $FindBin::Bin;
use FindBin; use File::Spec::Functions qw/catdir/; use lib catdir($FindBin::Bin, 'lib');
#!/usr/bin/perl -w use 5.011; ...
["abcdef", "abcdefg", "abcde", " bcdefgh", " bcd "] ["abcdef", "abcdef", "abcde ", " bcdef"] ...