#!/usr/bin/perl

# lista todos los archivos del directorio actual que empiezan con 'a'

foreach $name (`ls`) {
    print "$name" if($name =~ /^a/);
}