Select Code to Download

use strict;
use warnings;
...
$b[1]=@d;
my @e= $b[1];       # i think you want b as 2-D array
print "<$e[0]>\n";

use strict;
use warnings;
...
$b[1]=\@d;
my @e= @{$b[1]};       # $b[1] is an array ref so use @{} to get back 
+the list.
print "<$e[0]>\n";

<yy>