Select Code to Download

use strict;
use warnings;
...
close $inFH or die qq{close: $!\n};

print Data::Dumper->Dumpxs( [ \ @block ], [ q{*block} ] );

@block = (
           [
...
             'biff baff boff'
           ]
         );