storable2json.pl

use Storable qw(retrieve);
use JSON;

my $h;
my $json;
my @jarr;

@files = <$ARGV[0]>;
foreach $file (@files) {
    $h = retrieve($file);
    $json = encode_json \%$h;

    push(@jarr, $json)
}
print '[' . join(',', @jarr) . ']';