Select Code to Download

#!/usr/bin/perl
use strict;
...
$VAR1 = [
          1
        ];

$VAR1 = [
          [1, 2, 3, 4] String0,
...
          [1, 2, 3, 4] String6,
          [1, 2, 3, 4] String7
        ];