Select Code to Download

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...

print Dumper(\%structures);
exit;

$VAR1 = {
          ':flag::hour::minute:' => [
...
                                      'array1_position6'
                                    ]
        };