#!/usr/bin/perl -w
# Title: final_problem1.pl 

use strict;

my $a=[1..10];
for (my $x=0; $x<=$#$a; $x++){
  print "$a->[$x]\n";
}