#!/usr/bin/env perl

use 5.24.0;

use Data::Dumper;
use Storable;

my $data = retrieve $ARGV[0];

$data->{jobstatus} = {};

store $data, $ARGV[0].'.new';