#!/usr/bin/perl

use strict;
use warnings;

use Storable;

my $store_file = $ARGV[0];

# we have to extract the two original arrays from the
# single array that we encapsulated them in

my $aoa = retrieve( $store_file );
my ( $aref1 ,$aref2 ) = @{ $aoa };

print "@{ $aref1 }, @{ $aref2 }\n";