@a=qw(one two three four five six);
$r=\@a;

print @{$r}[0..2];  # Gives onetwothree