#!/usr/bin/perl
use strict;
use warnings;

my %hsh;
my $txt;
my @ary;

use Storable qw( fd_retrieve );
open my $SF, '+<', 'tst_Storable.db' or die "Error: $!\n";
%hsh = (%{fd_retrieve $SF});
$txt = ${fd_retrieve $SF};
@ary = @{fd_retrieve $SF};
close $SF;

print "Text: '$txt'\n";
print "Array: (", join(', ', @ary), ")\n";
print "Hash:  (", join(', ', map { "$_=>$hsh{$_}" } keys %hsh), ")\n";