foreach my $qw qw (qw qw) {print $qw}