use warnings;
use strict;

while (my $line = <DATA>) {
	chomp $line;
	print "<$line>\n";
}

my @array = ("Foo","0","Bar");
while (my $item = pop @array) {
	print "[$item]\n";
}

__DATA__
Hello
0

World