#!/usr/bin/env perl
use strict;
use warnings;

my @words = qw/The omega quick brown omega fox jumps over the omega lazy dog/;

my @sorted = sort { $a eq 'omega' ? 1 : -1 } @words;

print "@sorted\n";