Select Code to Download

my @another = @{$arr[1]};
for ( $i = 0; $i < 3; $i++ ) {
        print "another[$i] = $another[$i]\n";
}

my $another = $arr[1];
for ( $i = 0; $i < 3; $i++ ) {
        print "another[$i] = $another->[$i]\n";
}