Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $choice = 'dhcp-options(5)';
@history = sort_by { $_ eq $choice } @history;
say "@history";