Select Code to Download

use strict;
use warnings;
...
    my $pos=bin_search(\@list,$_);
    print "Search:$_ Position:",defined $pos ? $pos : "undef","\n";
}