use Modern::Perl;
use Data::Dumper;
my @a = ([2,4],[4,5],[8,6],[10,7]);
my @b;
push @b, $_->[1] for @a;
print Dumper \@b;