#!/usr/athena/bin/perl

while (<>) {
    $key = $_;
    $key =~ tr/A-Z/a-z/;
    $lines{$key} = $_;
}

foreach $_ (sort keys %lines) {
    print $lines{$_};
}