#!/usr/bin/perl -w

use strict;

our @data = ("a1","a2","a3","a4","a5","a6","a7","a8","a9","a0");

foreach (@data)
{
    print "$_\n";
}

exit;

##</code><code>##

#!/usr/bin/perl -w

use strict;

while (<DATA>)
{
    print "$_";
}

exit;


__DATA__
a1
a2
a3
a4
a5
a6
a7
a8
a9
a0