my @x = (qw/a b c abc def ghi z/);

while (<@x>)
{
    print "<$_>\n";
}

print "\n\n";

while (<@x>)
{
    print "<$_>\n";
}