tyru · March 6, 2009 13:48
diff --git a/wtf.pl b/wtf.pl
 use strict;
 use warnings;



 local $\ = "\n";
 1->[0] = 100;
 print 1->[0];    # => 100






 print @{main::1};    # => 100

 push @{1}, qw(foo bar);
 print join ', ', @{main::1};    # => 100, foo, bar
	use strict;
	use warnings;



	local $\ = "\n";
	1->[0] = 100;
	print 1->[0]; # => 100






	print @{main::1}; # => 100

	push @{1}, qw(foo bar);
	print join ', ', @{main::1}; # => 100, foo, bar
No results found