String to Array

to_array.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $string = "array downto function of repeat until begin else goto packed set var case end if procedure then while const file label program to with do for nil record type";

my @reserved = split /\s+/, $string;
my $array = join ",", map { '"'.$_.'"' } @reserved;
$array = "{" . $array . "}";

print $array;