#!/usr/bin/perl -w
use strict;
my @array=qw (5 4 10);
for(my $i=0;$i<$#array;$i++){
            my $first=$ar_no[$i];

##</code><code>##

Global symbol "@ar_no" requires explicit package name at