codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
my @x = qw(1 2 3 4 5 6); my @y = @x; print "y List:\n" . join("\n", @y) . "\n"; $y[1] = '500'; print "y List after:\n" . join("\n", @y) . "\n"; print "x List after:\n" . join("\n", @x) . "\n";
Private
[
?
]
Run code
Submit