use warnings;
use strict;

for (glob '*.a') {
    if (-f $_) {
        print "file $_ exists\n";
    }
}