elsif (($choice eq "delete") || ($choice eq 2)) {
                open (STORFILE ,"<", "Storage2.txt") or die "Can not open file\n";
                my @storf = <STORFILE>;
                close (STORFILE);
                open (my $stor2,">", "Storage2.txt") or die "Can not open file\n";
                print "What items would you like to delete?\n";
                while (<@storf>) {
                        chomp $_;
                        print ucfirst . "\n";
                        }
                my $ans = lc (<STDIN>);
                chomp $ans;
                while (<@storf>) {
                        print $stor2 "$_\n" unless /$ans/;
                        }
                close ($stor2);
                &stor;
        }