#!/usr/bin/perl

use strict;
use warnings;

my @A = qw/a b c/;

while (my $x = <@A>)
{
   print "$x\n";
}

print "@A\n";