@arr = qw/x101032 x101822 x101209 x102292 x101302 x102938 x102943 x101289/;

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

print "@new\n";