Select Code to Download

my @c = ( 22, 44, 55 );
my @d = ( 'yy', 'tt' );
...
@b[0,1] = ( $c[0], $d[0] );
my @e = ( $b[1] );
print "<$e[0]>\n";