#!/usr/bin/perl

use strict;
use warnings;

my $ali = 5;

print "$ali\n\n";

my @array = (1, 2, 3, 4, 5);
print $array[$#array]+1,"\n\n";

my %fruit_color = (
       apple  => "5",
       banana => "2",
   );
 
#print  $fruit_color{"banana"},"\n"; 
 
#print $fruit_color{"banana"}*5,"\n";

if ($#array<5){
       print $fruit_color{"banana"},"\n";
       };