Select Code to Download

use strict;
use warnings;
...

my @flat = map{@$_}map{@$_}@x;
print "@flat\n"; # FOO 9 7 3 4 BAR 8 0