use strict;
use warnings;

##</code><code>##

use strict;
use warnings;

my %dbase = (
   apple   => "fruit",
   brinjal => "vegetable",
   coffee  => "beverage",
);

sub validate {
   my ($usr, $pwd) = @_;
   return exists($dbase{$usr}) && $dbase{$usr} eq $pwd;
}

my @info = ( "lemon", "juice" );
my $result = validate(@info) ? "ok" : "forbidden";
print "$result\n";