Falls das archiviert wird...

mit bspw.
my @opts = qw(version verbose verein vergleich);

ergeben sich die Kürzel
verbose   => verb
verein    => vere
vergleich => verg
version   => vers

Es gibt Fälle, wo ein eindeutiger Kürzel nicht erstellt werden kann (wo dann vermutlich auch Getopt::Long nicht richtig arbeitet, aber das habe ich nicht getestet), bspw.:

--version
--verbose
--verein
--vergleich
--ver

im Design der Long-Opts. Mein gestern entworfener Algorithums kann solche Fälle erkennen, hier ist der Fix zur Qualitätssicherung:

  
if(scalar keys %res != scalar @opts){  
    warn "===\nEs konnten nicht alle Kürzel erstellt werden!\n===";  
}  

Und hier auch.