#!/usr/bin/perl

use warnings;
use strict;

my @arr = ("A", "B", "C");

my $i;
foreach $i (@arr) {
    print "$i\n";
    system("echo $i");
}