#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;

my %h =
        map { ($_, 1) }
        grep { $_ }
        map { /([^\/]*\.js)/ && $1 }
        `cat /var/log/apache2/access.log.1`;

print map { "$_\n" } sort keys %h;

##</code><code>##

#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;

print map { "$_\n" } sort keys %{{
        map { ($_, 1) }
        grep { $_ }
        map { /([^\/]*\.js)/ && $1 }
        `cat /var/log/apache2/access.log.1` 
}}; 

##</code><code>##


#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;
use Path::Tiny;

my %h =
        map { ($_, 1) }
        grep { $_ }
        map { /([^\/]*\.js)/ && $1 }
        path('/var/log/apache2/access.log.1')->lines_utf8();

print map { "$_\n" } sort keys %h;