#!/usr/bin/perl ######################################################################## # read all lines from input.file, store in array, sort the array ######################################################################## open (INPUT,") { push(@array,$_); } print sort (@array);