#!/usr/bin/perl use strict; use warnings; my %tab = (); while(<STDIN>){ chomp; $tab{$_} = 1; } my @sort = sort { $a cmp $b ; } keys %tab; for my $key (@sort){ print $key."\n"; }