#!/usr/bin/env perl

use strict;
use warnings;
use Cpanel::JSON::XS;
use feature qw(say);
use Data::Dump;
use Path::Tiny;

my @data = <DATA>;

chomp @data; 

dd \@data; 

my $json = encode_json \@data; 

dd $json;

my $file = path(q(json.dat)); 

$file->spew_utf8($json); 

my $data = decode_json $file->slurp_utf8; 

dd $data; 

say q(Cool beans!); 

__DATA__
foo
bar
nose
cuke