; sub foobar { my $value = shift ; my $c = 0 ; if ( ... ) { my $a = ... ; my $b = $a + 5 ; my $c = compute($a) } ; return } #### x = 3 y = 1 #### point = [ 3, 1 ] #### x1 = 4 x2 = 6 x3 = 9 x4 = 5 first_name = 'Fred' last_name = 'Flinstone' city = 'Bedrock'