Select Code to Download

#!/usr/bin/perl -w

...
1121 Another Item
11212 And Another Item
12 Sub Item 2

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

$VAR1 = {
   '1' => {
...
      }
    }          
}