if elseif condition not run

Question

#!/usr/bin/perl -w use strict; #use warnings; use Asterisk::AGI;

my $agi = new Asterisk::AGI; my $a = new Asterisk::AGI; #my $option1 = new Asterisk::AGI;

$a->a