@fin=retrieve('saveNotes');
say "After reading file:";

my @dumpArr = $fin[0];
@Arr=();
while ((my $key, my $value) = each($dumpArr[0])){
	
	push(@Arr,Note->unpack($value));
}

say Dumper(@Arr);