use strict;
use warnings;

my @not_sorted = qw(you hew dew slew);

my $value = "dew";
my @sorted = sort {
        ($a eq $value) ? ($b eq $value) ? 0 : -1 :
                         ($b eq $value) ? 1 :  0;
    } @not_sorted;
print join "\n", @sorted;