Select Code to Download

$ perl -E '
    my @answers = qw{x y z};
...
Total: 3
Total: 3
Total: 3

$ perl -E '
    #use strict;
...
2
3
completely different $i

$ perl -E '
    use strict;
...
'
Global symbol "$i" requires explicit package name (did you forget to d
+eclare "my $i"?) at -e line 9.
Execution of -e aborted due to compilation errors.

$ perl -E '
    use strict;
...
Global symbol "$i" requires explicit package name (did you forget to d
+eclare "my $i"?) at -e line 5.
Global symbol "$i" requires explicit package name (did you forget to d
+eclare "my $i"?) at -e line 6.
Execution of -e aborted due to compilation errors.

$ perl -E '
    use strict;
...
2
3
undefined

$ perl -E '
    use strict;
...
Global symbol "$i" requires explicit package name (did you forget to d
+eclare "my $i"?) at -e line 5.
Global symbol "$i" requires explicit package name (did you forget to d
+eclare "my $i"?) at -e line 6.
Execution of -e aborted due to compilation errors.

chomp $line;
print $line, "\n";

print $line;