You could try:

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

using an array to hold the row, or:

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

using a ref to the row. You should also consider use strict;, BTW...