open $globbing, "ls -1a |" or die;
while (<$globbing>) {
    chomp
    filter;
    ...
}