package Scriptname;
$somehash=> {
  'Something'=> {
         #.. stuff ..
         'Sub' => sub {
             print "Hello world, ";
             print "here is my local var: $var\n";
          };
   }
};