#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump;

my @original_data_set = ( 1 .. 10 );
dd \@original_data_set;

my @modified_data_set = map { $_++} @original_data_set;
dd \@original_data_set, \@modified_data_set;

__END__
karl-mac-mini:monks karl$ ./1119980.pl
[1 .. 10]
([2 .. 11], [1 .. 10])