else {
        print "Please input a valid answer!\n";
#  -->  sleep (1); #blocking 
        &bank;
        }

##</code><code>##


sub bank{
    unless( $_[0] eq 'inv' ){
      Print "Greetings traveller, there is much rain today, can I interest you in our laundry deals?\n"
    }else{ 
      Print "I can not Deposit that, not after the licensing fees went up on those, maybe you have some other valuables you need me to store for you?\n" 
    }
#rest of bank sub
}

...

  else { &bank('inv') }