#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=<STDIN>);
@ascii=sort(@lines);
print "@ascii\n";
#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=<STDIN>);
@ascii=sort(@lines);
print "@ascii\n";