#!/usr/bin/perl5.003

sub indexes_first
{
    if ($a =~ /index/ && (! ($b =~ /index/))) {
        return -1;
    } elsif ($b =~ /index/ && (! ($a =~ /index/))) {
        return 1;
    } else {
        return ($a cmp $b);
    }
}

print sort indexes_first <>;