@array = qw( 1 2 # 3 4 5 # 6 7 8 9 # 10);
@array = grep { $_ ne '#' } @array;
print "@array\n";