Basically, i wanted to make a big hash lookup or if that didnt work a big if elsif elsif ... else structure. I had to use contents of 3 different arrays to get the the part of the code written!

This is the code as follows.

#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::ParseExcel;

my $xls = Spreadsheet::ParseExcel->new();
my $xls_book = $xls->Parse( 'chrocordinates.xls' );
my $xls_worksheet = $xls_book->{Worksheet}[0];

my @contigs = map { $xls_worksheet->Cell( $_ , 0 )->Value} 0 .. 1394 ;
my @coordinates = map {$xls_worksheet->Cell($_, 1)->Value} 0 .. 1394 ;
my @chromosomes = map { $xls_worksheet->Cell($_ , 2)->Value} 0 .. 1394
+ ;my $new_contig;
my $new_coordinate;
my $new_chromosome;
foreach my $contig(@contigs){
    do{
    $new_chromosome = shift (@chromosomes);
    $new_coordinate = shift (@coordinates);
    $new_contig = shift (@contigs);
    print "$new_coordinate => (chromosome => \'$new_chromosome\', cont
+ig => \'$new_contig\')\n";
    print "elsif \(\$number < $new_coordinate\) {\n";
    print "\t"; 
    print "print \"contig \\\'$new_contig\\\', chromosome \\\'$new_chr
+omosome\\\'\"\;\n\t}";    
    }

}
[download]

the output can be used directly into another program, as code !

All the comments are welcome
Sameet