open (FILE, ">>Storage.txt") or die "Can not open file\n";
        flock(FILE,2);
        my %sfi = <FILE>;
        print "Would you like to add or delete items for the Storage?\n";
        print "1. Add\n",
        "2. Delete\n",
        "3. Back\n",
        "4. List\n",
        "5. Cancel\n";
        my $choice = lc(<STDIN>);
        chomp $choice;
        if (($choice eq "add") || ($choice eq 1)) {
                print "What items would you like to add?\n";
                my $ans = lc(<STDIN>);
                chomp $ans;
                print FILE "$ans\n";
                print "The storage contains the following\n";
                foreach my $sfi (%sfi) {
                        print "$sfi\n";
                }
                &stor;
        }
        elsif (($choice eq "delete") || ($choice eq 2)) {
                print "What items would you like to delete?\n";
                my $ans = lc (<STDIN>);
                chomp $ans;
                my @find = grep {$_ =~ $ans} %sfi;
                if (exists %sfi {my $find = @find?? << not sure how to do this part too}) {
                delete {$ans};
                print "The storage contains the following\n";
                foreach my $sfi (%sfi) {
                        print "$sfi\n";
                }
                &stor;
        }