#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

my %scripts;
while(<>) {
    next unless m/; ([A-Za-z_]*) #/;
    $scripts{$1}++;
}

$, = "\n";
say sort { $a cmp $b } map { $_ = ucfirst lc; $_ =~ s/(?<=_)(.)/uc $1/ge; qq/"$_"/ } keys %scripts;