to make it work

Doh, touché. I didn't even spot that one. That said, I offer

push @{ -d catfile($line,$_) ? \@dirs : \@files }, $_
    for @all_files;
[download]

Makeshifts last the longest.