my @dataR1 = map { $_->[1] } @aoa[1..$#aoa];

#Loop over each DatR1:

for my $dr1 (@dataR1){
  # Calculate something using  $dr1
}