Help for this page

Select Code to Download


  1. or download this
        [$a,$b]= @list;
  2. or download this
         my( $a, $b )= ( 4, 5 );
  3. or download this
         my $a; my $b= 5;
  4. or download this
         ( $scalar )= EXPR
  5. or download this
         $scalar= ( EXPR )[0]
  6. or download this
        my( $arg )= shift;