#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use sort 'stable';
use List::UtilsBy qw{ sort_by };

my @history = ( 'Cache::SizeAwareMemoryCache(3)' , 'dhcp-options(5)' , 'BN_add_word(3)' , 'audit-packages(8)' );
my $choice = 'dhcp-options(5)';
@history = sort_by { $_ eq $choice } @history;
say "@history";