#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %data;

{
    local $/ = '';
    while (<>) {
        my ($key, @data) = split /\n/;
        for (@data) {
	     	s/^"//;
	     	s/"$//;
        }
        $data{$key} = \@data;
    }   
}

$Data::Dumper::Indent=1;

print Dumper \%data;

##</code><code>##

$VAR1 = {
  'arn:aws:iam::12345678901:role/Role2-Role2' => [
    'Alexa for Business',
    'AWS Certificate Manager',
    'AWS Certificate Manager Private Certificate Authority',
    'AWS Amplify',
    'Manage - Amazon API Gateway',
    'Application Auto Scaling',
    'AWS App Mesh',
    'Amazon AppStream 2.0',
    'AWS AppSync'
  ],
  'arn:aws:iam::11111111111:role/ADFS-MyRoleName' => [
    'Alexa for Business',
    'AWS Certificate Manager',
    'AWS Certificate Manager Private Certificate Authority',
    'AWS Amplify',
    'Manage - Amazon API Gateway',
    'AWS App Mesh',
    'Amazon AppStream 2.0',
    'AWS AppSync',
    'Amazon Athena',
    'AWS Auto Scaling'
  ]
};