とあるディレクトリで
@list = glob('*');
print @list;
とすると
a.plb.plc.pl
となる

また、
$list = (glob('*'))[0];
print $list;
とすると
a.pl

これを
$list = glob('*');
print $list;
とすると
a.pl
となる
どうしてc.plにならないの?

たとえば
$str = qw(a b c);
print $str;
とするとcになるのに