#!/usr/bin/perl
#read the Storable file
#use strict;
use warnings;
use Storable;
use Data::Dumper;

my %sigs = %{retrieve('z1.bin')} or die "Unable to retrieve from z1.bin:$!\n" ; 
print Dumper \%sigs;
exit;

__DATA__
1_Friday    = Friday
2_random    = [Rr]andom
3_catch any = .*