#perl
my $variable = 234;

sub ax {
   print $variable;
   print "\n";
  }
sub bx {
    $variable;
   }
   
my $return_val_a = ax();
print "a - [$return_val_a]\n";
my $return_val_b = bx();
print "b - [$return_val_b]\n"; 
##</code><code>##

234
a - [1]
b - [234]