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