my @dirvar = </xxx/*>
    print join ':', @dirvar;