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

depo();

sub depo {
        my @storage = qw(knife wand bow);
        my @inventory = qw(axe sword shovel);
        my $num = 1;
        my $choice;
        my $item;

        sleep (1);
        print "Which item would you like to deposit?\n",
        "$num. Nevermind\n";
        foreach my $inv (map(ucfirst, @inventory)){
                $num++;
                print "$num. $inv\n";
                }
        $choice = lc(<STDIN>);
        chomp $choice;
        my $index = 'N';
        
        for (my $x = 0; $x <= $#inventory; $x+= 1)
                {
                        if ($inventory[$x] eq "$choice")
                                {
                                         $index = $x;
                                         $item = $inventory[$x]; 
                                }
                }
        
        if ($index eq 'N')
                {
                        print "$choice is not available.\n\n";
                        return;
                }
        $item = splice (@inventory, $index, 1);
        push(@storage,$item);
        print "You have stored a \"$item\".\n\n";
        print STDERR "STORAGE: @storage\nINVENTORY: @inventory\n\n";
}