#!/usr/bin/env perl 
use strict;
use warnings;

my %ujs;
my $file = "access_log.txt";
open my $fh, "<", $file or die "File $file not opened: $!\n";

while (<$fh>) {
    m/([^\/]*\.js)$/ and $ujs{$1}++;
    }
close $fh;
print "$_\n" for sort keys %ujs;