Select Code to Download

...
use Data::Dumper;
...
      print("$given $surname\n");
   }
}

$VAR1 = {
          'flinstones' => [
...
                          ]
        };
ARRAY(0x2254d8) flinstones