#!/usr/bin/perl my $x = 14; my @ary=(10,11,12,13,14); map{print "$x matches\n" if /^$x$/} @ary; is nice to look at :)