#! perl
use strict;
use warnings;

@ARGV == 1 or die "\nUsage: perl lookupArray.pl <integer>\n";

my $lookup = $ARGV[0];
my @array  = sort { $a <=> $b } (67, 40, 11, 23, 52);
my $prev   = ( grep { $_ <= $lookup } @array )[-1];
my $next   = ( grep { $_ >= $lookup } @array )[ 0];

printf "\nValue %d is %s\n", $lookup,
       ($prev && $next) ? "between $prev and $next" :
        $prev           ? "above $prev" : "below $next";