my @a = qw/1 2 3 # 6 7 # 9 10/;

for my $val ( @a ){
   
   $val eq '#' ? do_something()
      : $val eq '1' ? do_where_var_is_1()
      : do_something_else();

}