First, you have bad syntax in your elsif conditional, a single = which assigns $a the value of 2. It should be ==.

I reformatted your code to be more readable, fixed the ==, added 'my' to the subroutine vars, removed the 'v' filehandle so I could just print to the screen, seems to work for me based on your logic. Here is the code (always 'use strict;'!). 

#!/usr/bin/perl -w

use strict;
$| = 1;

my $a = 1;
my $b = 1;
my $c = 1;
print "Passing in \$a: $a, \$b: $b, \$c: $c: expect p 1 1\n";
ddd($a,$b,$c);

$a = 2; 
$b = 2; 
$c = 2; 
print "Passing in \$a: $a, \$b: $b, \$c: $c: expect pp 2 2\n";
ddd($a,$b,$c);

$a = 3; 
$b = 3; 
$c = 3; 
print "Passing in \$a: $a, \$b: $b, \$c: $c: expect 3 w 3\n";
ddd($a,$b,$c);

sub ddd {

    my $a = $_[0];
    my $b = $_[1];
    my $c = $_[2];

    if ($a == '1') { 
        $a = 'p'; 
    }
    elsif ($a == '2') { 
        $a = 'pp'; 
    }

    if ($b == '3') { 
        $b = 'w'
    }

    print "  < $a >  < $b > < $c > \n";
}

[download]
and here is the output: 
#> ./test-subroutine.pl
Passing in $a: 1, $b: 1, $c: 1: expect p 1 1
  < p >  < 1 > < 1 > 
Passing in $a: 2, $b: 2, $c: 2: expect pp 2 2
  < pp >  < 2 > < 2 > 
Passing in $a: 3, $b: 3, $c: 3: expect 3 w 3
  < 3 >  < w > < 3 > 
#>

[download]


"Peace, love, and Perl...well, okay, mostly just Perl!" --me

Apprentice

In reply to Re: Loops and variable usage by apprentice
in thread Loops and variable usage by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.