Select Code to Download

#!/usr/bin/env perl

use 5.012;
...
}
say search;
say Dumper \@search;

[
'furniture search "wire shelf"',
...
  ]
 ]
]

$VAR1 = [
          [
...
            ]
          ]
        ];