hi,

try the below code...

@arr = qw/x101032 x101822 x101209 x102292 x101302 x102938 x102943 x101
+289/;

@new = grep /^x102/,@arr;

print "@new\n";
[download]

Output is:

x102292 x102938 x102943

regards,
Franklin