for (qw/1 2 3/){
  my $fh = "S".$_;
  select (fh);
  print "meinzeug";
}