#!/bin/perl
# Lit toutes les lignes d'un fichier et les trie (en memoire) pour les afficher
@tableau = <>;
print sort @tableau;