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