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

# letters:
# this script shows the letters (in alphabetic order) that occur
# in the strings given as a command-line arguments.
# Cameron Hayne (macdev@hayne.net)  Sept 2005

chomp(@ARGV = <STDIN>) unless @ARGV;

foreach my $string (@ARGV)
{
    my @letters = split(//, $string);
    my @sortedLetters = sort @letters;
    print @sortedLetters, "\n";
}