#!/usr/bin/perl -w
use strict;

my @a=(1..100);
for my $num (@a)    #foreach my $num (@a) is also just fine
{
   print "$num\n";
}

my $b=[1..100];
foreach my $num (@$b)
{
   print "$num\n";
}