Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
                          }
                 }
        };

_Required output_
$VAR1 = {
          '1' => {
...
                          }
                 }
        };