use warnings;
use strict;

my $x;

for (@{ $x }){
    print "$_\n";
}