$replay =~ s/^\$VAR1\s*=\s*//;
$replay = eval $replay; 
print "ref: ".ref($replay)."\n";
Test::Mock::HTTP::Tiny->set_mocked_data($replay);

##</code><code>##

    if (ref($new_mocked_data) eq 'ARRAY') {
      ...
    elsif (ref($new_mocked_data) eq 'HASH') {
      ...
    else {
        # TODO: error
    }

##</code><code>##

my $mocked_data = Test::Mock::HTTP::Tiny->mocked_data();
store $mocked_data, 'mock_html.dat';
...
my $replay = retrieve 'mock_html.dat';
print "ref: ".ref($replay)."\n";
Test::Mock::HTTP::Tiny->set_mocked_data($replay);