my @array = qw/1 2 3 4/;
my $matched;
foreach (@array){
if($variable == $_){
$matched = $_;}
}