processing array

[perlaroha]

I have an array @arr as:

aa bb cc
dd ee ff
gg hh kk
tt yy uu

I need to extract the second coulmn from this & push it to another array called @brr so that it contains only

bb
ee
hh
yy

[toolic]

Assuming @arr is an Array-of-arrays:

use strict;   
use warnings;
use Data::Dumper;

my @arr = (
  [qw(aa bb cc)],
  [qw(dd ee ff)],
  [qw(gg hh kk)],
  [qw(tt yy uu)]
);
my @brr;
push @brr, $_->[1] for @arr;
print Dumper(\@brr);

__END__

$VAR1 = [
          'bb',
          'ee',
          'hh',
          'yy'
        ];

[perlaroha]

Thanks toolic for the reply.