Concatenating Strings

[Bobby]

Hi all,

I'm trying to write a simple do until loop to print out the value of $strA0 
through $striA3. What i'm doing is replacing the value of 0 through  3 in the 
$strA by joining two strings (my $strB = "strA" . $count;). Right now my script 
is printing $strB as below. How do i get perl to print the value of $strA0 
through $strA3 inside of my do until loop?  i.e.:

Desired Outcome:
VarB: A0
VarB: A1,b,c
VarB: A 2
VarB: A3,d,e

Current Outcome: 
VarB:strA0
VarB:strA1
VarB:strA2
VarB:strA3


#!/usr/bin/perl
use strict;
use warnings;

my $strA0="A0";
my $strA1="A1,b,c";
my $strA2="A2";
my $strA3="A3,d,e";

my $count = 0;
  until ($count == 4){
     my $strB = "strA" . $count;
    print "VarB:$strB\n";
  $count++;
}#end until loop

Thanks,

Mike







       
---------------------------------
Never miss a thing.   Make Yahoo your homepage.