UNIX for Dummies Questions & Answers

for ($i = 0; $i <= $#array} - 1; $i++)
        {
            push (@data,qx(grep '$array[$i]' $file));
        }
}

@array = ( [abc,123], [def,456],[ghi,789])

@array = ( [abc,123,ZZZ], [def,456,ZZZ],[ghi,789,ZZZ])

for (@array){
   push (@{$_},"ZZZ");
}

@array = ( "abc,123", "def,456", "ghi,789" )

@array = ( "abc,123,ZZZ", "def,456,ZZZ", "ghi,789,ZZZ" )

skrynesaver@busybox~ ~$ perl -e '
my @array = ( "abc,123", "def,456", "ghi,789" );
use Data::Dumper;
print Dumper(\@array);'
$VAR1 = [
          'abc,123',
          'def,456',
          'ghi,789'
        ];
skrynesaver@busybox~ ~$ perl -e '
my @array = ( "abc,123", "def,456", "ghi,789" );
for (@array){
   $_.=",ZZZ";
}
use Data::Dumper;
print Dumper(\@array);'
$VAR1 = [
          'abc,123,ZZZ',
          'def,456,ZZZ',
          'ghi,789,ZZZ'
        ];
skrynesaver@busybox~ ~$ perl -e '
my @array = ( "abc,123", "def,456", "ghi,789" );
map {$_.=",ZZZ";}@array;
use Data::Dumper;
print Dumper(\@array);'
$VAR1 = [
          'abc,123,ZZZ',
          'def,456,ZZZ',
          'ghi,789,ZZZ'
        ];