#!/usr/bin/perl

# lista todos los archivos del directorio actual que empiezan con 'a'
# y un -l

foreach (`ls`) {
    print if(/^a/);
    system("ls -l $_") if(/^a/);
}