Select Code to Download

#! /usr/bin/perl

...
  return \%data;

}

$VAR1 = {
          'UK' => {
...
                    'fullname' => 'Austria'
                  },
        };