my @array = qw/one two three four five/; my @copy = @array; shift @copy; print "Original: @array\n"; print "Copy: @copy\n";