my $which_radio_button = param('P1P2_bugs');
 
      my $rec_type;
      my $y_label;
        #
        #Decide the rec_type based on the Radio button selection
        if ( $which_radio_button eq 'P1' ) {
            $rec_type = '3';
            $y_label  = 'Open P1 Bugs';
        }
        elsif ( $which_radio_button eq 'P2' ) {
            $rec_type = '4';
            $y_label  = 'Open P2 Bugs';
        }
        elsif ( $which_radio_button eq 'P1-P2' ) {
            $rec_type = '2';
            $y_label  = 'Open P1-P2 Bugs';
        }
        elsif ( $which_radio_button eq 'Daily-Snapshot' ) {
            $rec_type = '1';
            $y_label  = 'Daily-Snapshot';
        }
[download]

should do!

Thank you Monk. It worked. Thank you all who replied. Regards, Rakhee

'my' variables are local to any block they are in. In your case I count 4 blocks with as many DIFFERENT variables $rec_type that vanish as soon as the 'if' or 'elsif' block (the code lines inside {}) is finished executing

put a line "my $rec_type; my $y_label;" before the "if" and remove any 'my's inside the if and elsif cases.

The immediate problem is that $rec_type and $y_label need to be global to the if/elsif code. If you have access to Perl 5.10.x however you can use given/when to clean up the code somewhat. Consider:

use strict;
use warnings;
use 5.010;

my $rec_type;
my $y_label;

given (param('P1P2_bugs')) {
    when ('P1') {
        $rec_type = '3';
        $y_label  = 'Open P1 Bugs';
    }
    when ('P2') {
        $rec_type = '4';
        $y_label  = 'Open P2 Bugs';
    }
    when ('P1-P2') {
        $rec_type = '2';
        $y_label  = 'Open P1-P2 Bugs';
    }
    when ('Daily-Snapshot') {
        $rec_type = '1';
        $y_label  = 'Daily-Snapshot';
    }
    default {
        die "Unrecognised parameter type: $_\n";
    }
}
[download]

Note that the two variables that are being set are global to the given block and that there is a default handler for unexpected results from param.

In this case of one-to-one mappings I'd rather prefer a hash.

%radiobutton=(
   P1  =>  [ 3, 'Open P1 Bugs' ],
   P2  => ...
);
 
($rec_type,$y_label)= @{ $radiobutton{ param('P1P2_bugs') } };
[download]

(untested)

Cheers Rolf

#!/usr/bin/perl --
use strict;
use warnings;
{
    my $one = 1;
    my $two = 1;
    {
      my $one = 3; ## new $one
      my $two = 4; ## new $two
      print "$one $two\n"; # old $one $two
    }

    if( time ){

      my $one = 5; ## new $one
      my $two = 6; ## new $two
      print "$one $two\n"; # old $one $two
    }

    print "$one $two\n"; # old $one $two
}
### NO $one/$two exist here
## print "$one $two\n";

__END__
3 4
5 6
1 1
[download]

Sorry, the first two comments "# old $one $two" are a copy/paste typo.