use Vector qw(vector); my $a = vector( size=>10000, first=>0.0, by=>0.01 ); my $b = sin($a); my $c = $a + $b; print $c->[200];