Select Code to Download

#!/usr/bin/perl
use Data::Dumper;
...
print Dumper($ref_tomailq);

$VAR1 = [
          {
...
          }
        ];

$VAR1 = [
          {
...
                              }
          }
        ];

$VAR1 = [
          {
...
                              }
          }
        ];