for my $x ( 0 .. @$sb+0 ) { print Data::Dumper->Dump( $sb->[$x][#element] ); }