use List::Util;
my $skalar = 14;
if(first {$_ == $skalar}(13..52)){
    # ...
}