use  strict; 
use warnings;

my  $test =  " asdf ";
print  " ${test}_test2\n ";

# constant
use constant {
    AAA =>  " aaa ",
    BBB=>  " bbb ",
    MIN_TOTAL =>  12,
    score_PASS =>  90,
    score_RED =>  70,
};

print AAA;
print score_PASS;

# two dimesion arrays
my  @steps = (
      [ " aaa ",  " aaavalue "],
      [ " bbb "," bbbvalue "],
      [ " ccc "," cccvalue "]
);
print  " \n ";
foreach  my  $i ( 0 .. $ # steps){
   print  " $steps[$i][0]:$steps[$i][1]\n ";
}

my  $a1;
print  " $a1\n ";
my  $a2 =  undef;
print  " $a2\n ";
if(! defined( $a1)){ print  " a1 is not defined\n ";}
if(! $a2){ print  " a2 is not defined\n ";}
my  $a3= '';
if (! $a3 ){ print  " a3 is empty string\n ;}